#!/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";