use Filesys::Df;

my $ref = df("/tmp");  # Default block size of 1024 bytes.
	                       # You can specify a different block
                               # as a second argument.

print"Percent Full:       $ref->{per}\n";
print"Total Blocks:       $ref->{blocks}\n";
print"Blocks Available:   $ref->{bavail}\n";
print"Blocks Used:        $ref->{used}\n";
print"Inode Percent full: $ref->{fper}\n";
print"Inodes Free:        $ref->{favail}\n";
print"Inodes Used:        $ref->{fused}\n";

print"Total Bytes", ($ref->{blocks} * 1024), "\n";