du -b PATH  | sort -n | perl -ane '++$n and $F[0] /= 1024 until $F[0] < 1024; printf "%.2f %s %s",$F[0], ( qw[ bytes KB MB GB ] )[ $n ], $F[1];print qq(\n); $n = 0'