use SDL::Mixer;
use SDL::Music;

playMusicFile("test.wav");

BEGIN
{
	my $music;
	my $mixer = SDL::Mixer->new( -frequency => 22050,
								 -channels	=> 2,
								 -size		=> 1024);

	sub playMusicFile
	{
		my $music_file = $_[0];		
 
		$music = new SDL::Music $music_file;
		
		$mixer->music_volume(40);
		$mixer->play_music($music, 0);
	}
}