perl -e 'print sort {reverse lc($a) cmp reverse lc($b)} <>' /usr/share/dict/words

##</code><code>##

/usr/X11R6/lib/xscreensaver/phosphor -root -delay 50000 -program "beatnik.pl < /usr/share/dict/words"