system("start $filename");
[download]

But the better way to do it is to install Win32::API via the PPM command (or CPAN); then you can do this:

use Win32 qw(SW_SHOWNORMAL);
use Win32::API;
use strict;

my $FILE_OR_URL = ... whatever ...;
my $shellexec = Win32::API->new('shell32', 'ShellExecute', 
  'NPPPPI', 'N') or die "cannot import ShellExecute: $!\n";

my $result = $shellexec->Call(0, "open", $FILE_OR_URL, 
       "", ".", SW_SHOWNORMAL);
if ($result < 33) {
  print STDERR Win32::FormatMessage($result), "\n";
  exit(1);
}
[download]

Thanks, but I was hoping for a more multios solution... But I guess this will do... :)

Btw, wanna explain some of the code there? NPPPPI?

What I do is create the worker thread once during the startup of the script, and put the thread to sleep. Then when I want it to do something, I use threads:shared to turn it on and pass it a string to be used (a mp3 name).

If it is only mp3 files you want to play, you might be able to use a piped open to your mp3 player, and just feed it filenames on STDIN. I've done this in linux. (I realize you are on windows, but this just demonstrates the idea)

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

#read README.remote in mpg123 sources 

$|++;

#my $pid = open(FH,"| mpg123 -R  2>&1 "); 
my $pid = open(FH,"| mpg123 -R >/dev/null 2>&1 ");
print "$pid\n";

my $mw = new MainWindow;

my $startbut = $mw->Button(-text =>'Start Play',
          -command => sub{
           syswrite(FH, "LOAD 1bb.mp3\n") ;
          })->pack;


my $pausebut = $mw->Button(-text =>'Pause',
          -command => sub{
           syswrite(FH, "PAUSE\n") ;
          })->pack;

my $exitbut = $mw->Button(-text =>'Exit',
         -command => sub{ exit })->pack;

MainLoop;
[download]