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