du -sk . * | perl -e '$sum=<>;
     while (<>) {
       ($size, $inode)=split;
       chop $size;
       printf("%30s | %5d | %2.2f%%\n",$inode,$size,$size/$sum*1000);
     }' | sort -rn -k 3 | head