#!/usr/bin/perl -w
use Tk;
use SDL::Mixer;
use SDL::Music;

my $mw = MainWindow->new(title => "SDL audio");

$mixer = eval { SDL::Mixer->new(-frequency => 44100, -channels => 2, -size => 1024); };

$mixer->music_volume(100);

$music = new SDL::Music './1bb.wav' or die $!;

$mixer->play_music($music,-1);
#$mixer->play_music($sound,-1); #will not play simultaneously

MainLoop;