$mci ||= new Win32::API("winmm", "mciSendStringA", 'PPNN', 'N') || return 0;
#- Init $retstring
my $retstring=" "x256;
#- Open mp3 file 
$mci->Call("open \"$file\" alias mysound",$retstring,256,0);
#- Play it
$mci->Call("play mysound from 1",$retstring,256,0);
# - how do I set the volume?