$_ = (`df -k /home`)[1];
my $blocks = (split)[1];
print "$blocks\n";