http://www.perlmonks.org?node_id=571140

perl -e'%c=map{[a..z]->[log($_)/log(2)*8-48],$_}map 2**($_/8),6*8..8*8 +; print((((chr)x($_/16)).("\x00"x(256-$_)/16))x128)for map{$c{$_},0}" +jklkjjj0kkk0j0g0g00jklkjjjjkkjkl"=~/./g'>>/dev/dsp
Optionally, adjust x128 to make it play faster or slower.
(Thanks to tybalt89 on freenode for the =~/./g suggestion)