#!/usr/bin/perl

use strict;
use warnings;

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

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

$mixer->music_volume(20);

my $music = new SDL::Music './test.mp3' or die $!;

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

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