use strict;
use warnings;

use SDL v2.2.6; # This is for the old API
use SDL::Mixer;
use SDL::Music;

SDL::Init(SDL_INIT_AUDIO);

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 "$! and SDL Error is".SDL::GetError();

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

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