#! /usr/local/bin/perl

BEGIN
{
    push ( @INC, "$ENV{HOME}/Filesys-DiskSpace-0.05/lib"); # Filesys::DiskSpace - Perl df
}

use strict;
use warnings;
require Filesys::DiskSpace;

# file system /home or /dev/sda5
my $dir = "/home";
 
# get data for /home fs
my ($fs_type, $fs_desc, $used, $avail, $fused, $favail) = Filesys::DiskSpace::df $dir; 
# calculate free space in %
my $df_free = (($avail) / ($avail+$used)) * 100.0;
 
# display message
my $out = sprintf("Disk space on $dir == %0.2f\n",$df_free);
print $out;