use Filesys::DiskFree;
use strict;

my $disk = new Filesys::DiskFree;
$disk->df();

print "Es sind noch ".$disk->avail("/"). " Bytes frei.";