Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
######################################
...
print "It has ".$handle->total("/")." bytes total\n";
print "It has ".$handle->used("/")." bytes used\n";

Select or download this

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