alias lssize="ls | perl -e 'print for sort {length (\$a) <=> length (\$b)} <>'" alias L="ls -l | perl -pe 's/^(.{78})...*/\$1>/;' | page"