#Print disk usage - perl
du -h |perl -e'%h=map{/.\s/;99**(ord$&&7)-$`,$_}`du -h`;die@h{sort%h}'
#Bash
du -k * | sort -nr | cut -f2 | xargs -d '\n' du -sh
#Base
du -scBM | sort -n
#More
du -s * | sort -rn | cut -f2- | xargs -d "\n" du -sh