#!/usr/bin/perl
use strict;
use warnings;
use SDL;
use SDL::Mixer;
use SDL::Music;
my $mixer = new SDL::Mixer(-frequency=>44100, 
			   -channels=>2, 
			   -size=>1024);
  
my $mp3 = new SDL::Music('./test.mp3');  

$mixer->play_channel(0, $mp3, 0);