Select Code to Download

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

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