# most linuxes ship with du that has --max-depth
$ du -h --max-depth 1 /home

# OR *bsds ship with du that has -d
$ du -h -d 1 /home

##</code><code>##

518K    /usr/home/colette
7.5M    /usr/home/uvnet
 74M    /usr/home/dsia
1.3G    /usr/home/kcowgill
4.0K    /usr/home/kimc

##</code><code>##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)