perl -wne '$sum += (stat)[7]}{print "$sum\n"'


##</code><code>##

   @suf=qw(B KB MB GB TB);while($sum>=1024){$sum/=1024;shift @suf}print $sum," ",shift @suf