use strict;
use warnings;

sub partition_usage {
    my $partition = shift;
    my $line = (`/bin/df -B 1024 $partition`)[-1];
    return 1024 * (split(/\s+/, $line))[2];
}

# test it:
print partition_usage('/home/'), "\n";