#!/usr/bin/perl5
sub CheckDiskSpace
{
	use Filesys::DiskFree;
	my $handle = new Filesys::DiskFree;
	$handle->df();

$loc1 = '/dev';
$loc2 = '/var/run';
$loc3 = '/boot';
print "... $loc1, $loc2, $loc3, '/' \n";

	foreach my $file ($loc1,$loc2,$loc3,'/' )
	{
		my $bytesavailable=$handle->avail($file);
		print "at $file, available bits = $bytesavailable \n";
	}
}

CheckDiskSpace();