my $total=`du --block-size=1 $line`; my $junk; chomp($total); ($total,$junk)=split /\t/, $total, 2;