use strict;
use warnings;
use Audio::Beep;

my $beeper = Audio::Beep->new();

my $music = "\bpm144 c d e f g a b c2. r4 c b a g f e d c1 ";
$beeper->play($music);

$music = qq~g' f bes' c8 f d4 c8 f d4 bes c g f2
            g' f bes' c8 f d4 c8 f d4 bes c g f2~;
$beeper->play($music);