#!/usr/bin/perl
use strict;
use warnings;
use Win32::MediaPlayer;

my $winmm = new Win32::MediaPlayer;
$winmm->load('test1.mp3'); 
$winmm->play;
$winmm->volume(100);

while ($winmm->pos < $winmm->length) {
    # Loop until finished playing media file
}