my @df = `df /var`;
my ($used, $free) = (split (/\s+/, $df[1]))[2,3];