#!/usr/bin/perl -w
 # File: unix_fs.pl
 # Author: Tom Large - tlarge@thelug.org
 # Location: http://www.thelug.org/docs/
 # Description: Send email notification if any slice
 # at less than 1 GB free space.
 
 $counter = 0;
 
 # Note: the df command has varying options across Unix flavors.
 # This particular script was written for Linux.  Try '-b' for Solaris.
 system ("df > /tmp/freespace");
 
 open(SPACEFILE ,"/tmp/freespace" );
 @spacefile = <SPACEFILE>;
 close( SPACEFILE );
 
 foreach $spacefile ( @spacefile)
   {
   chomp $spacefile;
   if ($spacefile =~ (/^\S+\s+\d+\s+\d+\s+(\d+)/))
     {
     if ($1 < 10000000)
       {
       $counter++;
       @offenders = (@offenders,"$spacefile");
       }
     }
   }
 
 foreach $offenders (@offenders)
   {
   print "$offenders\n";
   }