#!/usr/bin/perl -w

use strict;
use Win32::API;

use vars qw($mci $retstring $stop);

#- Import mciSendStringA
$mci = new Win32::API("winmm", "mciSendStringA", 'PPNN', 'N')
	or die "No we have no bananas....";

#- Init $retstring
$retstring=" "x256;

#- Open mp3 file 
$mci->Call("open whatever.mp3 alias mysound",$retstring,256,0);

#- Play it
$mci->Call("play mysound from 1",$retstring,256,0);

#- Until...
print "press Enter to stop playing....";
$stop=<STDIN>;

#- Stop
$mci->Call("stop mysound",$retstring,256,0);

#- Close
$mci->Call("close mysound",$retstring,256,0);