use Win32::MediaPlayer;
use Cwd;

print "Current directory is ". getcwd . "\n";
$winmm = new Win32::MediaPlayer;
$winmm->load('c:/dev/roar.mp3');
print "Here.\n";
$length = $winmm->length;
print "length is $length\n";

$winmm->volume(100);
$winmm->play;

print "Done.\n";

##</code><code>##

C:\dev>perl game.pl
Current directory is C:/dev
Here.
No File Loaded at C:/Perl/site/lib/Win32/MediaPlayer.pm line 58.
length is 1453
No File Loaded at C:/Perl/site/lib/Win32/MediaPlayer.pm line 44.
Done.