Fun with Perl - There's no place like ::1

Try this on your Linux box!

sudo perl -MAudio::Beep -e 'beep(21 + 9998, 3000) while 1'

Pretty annoying huh? :D

Now for something completely different:

use Audio::Beep;

my $beeper = Audio::Beep->new();
my $music = "g' f bes' c8 f d4 c8 f d4 bes c g f2";
$beeper->play( $music );

Audio::Beep is really a great Perl module! :)

New Comment