du --max-depth=1 | sort -n -r | perl -ne '($s,$f)=split(m{\t});for (qw(K M G)) {if($s<1024) {printf("%.1f",$s);print "$_\t$f";last};$s=$s/1024}'
du -csh === du -chd0
du -csh */ | sort -h
du -sh */ | sort -h
du -h -d1
ls -lhS

Find largest files