in reply to Log Talker
WARNING: self-advertisement ahead...
Without speakers? Why don't you try out Audio::Beep?
$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g
In Section
Cool Uses for Perl