D:\>cat temp
#! /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;

D:\>perl -MO=Deparse,-p temp
sub BEGIN {
    push(@INC, "$ENV{'HOME'}/Filesys-DiskSpace-0.05/lib");
}
use warnings;
use strict 'refs';
require Filesys::DiskSpace;
(my $dir = '/home');
(my($fs_type, $fs_desc, $used, $avail, $fused, $favail) = $dir->Filesys::DiskSpace::df);
(my $df_free = (($avail / ($avail + $used)) * 100));
(my $out = sprintf("Disk space on $dir == %0.2f\n", $df_free));
print($out);
temp syntax OK