#!/usr/bin/zsh

ls -Q -d . | xargs du -b -- | \
sort -n |\
perl -e 'while (<>) { @p = split; $sz = shift @p;\
    printf("%3.2f MB \t@p\n",$sz/(1024*1024)); }'