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

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

$mixer->music_volume(100);

$music = new SDL::Music './1bb.ogg' or die $!;
#$sound = new SDL::Sound 'z.wav' or die $!; 

$mixer->play_music($music,5); #0 for single play 

while(1){
if( $mixer->playing_music() ){sleep(1)}else{ last}
}