1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22

use strict;
use Audio::Beep;

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

my $sSantokki = "
	g2 e4 e4 
	g4 e4 c2
	d2 e4 d4
	c4 e4 g2
	c'4. g,8 c'4. g,8
	c'4 g,4 e2
	g2 d4 f4
	e4 d4 c2
";
$oBeeper->play( $sSantokki );

beep(300, 120); # Freq(Hz), Duration(milliseconds)
beep(350, 120); # Freq(Hz), Duration(milliseconds)
beep(400, 120); # Freq(Hz), Duration(milliseconds)
beep(450, 120); # Freq(Hz), Duration(milliseconds)
beep(300, 120); # Freq(Hz), Duration(milliseconds)