#!/usr/bin/perl -w
######################################
 
use strict;
use warnings;
use Filesys::DiskFree;
  
my $handle = new Filesys::DiskFree; # ASSIGN HANDLE!
$handle->df();
print "The root device is ".$handle->device("/")."\n";
print "It has ".$handle->avail("/")." bytes available\n";
print "It has ".$handle->total("/")." bytes total\n";
print "It has ".$handle->used("/")." bytes used\n";


##</code><code>##

The root device is /dev/hda1
It has 669364224 bytes available
It has 9253654528 bytes total
It has 8114221056 bytes used