use Audio::Beep;
my $beeper = Audio::Beep->new();
my $scale = <<'EOS';
 \rel \bpm144
 c d e f g a b c2. r4    # a scale going up
 c b a g f e d c1        # and then down
EOS

$beeper->play($scale);