This plays the wav file supplied on the command line in the background whilst the program in continues in the foreground:

#! perl -slw
use strict;
use threads;
use Win32::Sound;

async {
    Win32::Sound::Play( $ARGV[ 0 ] );
}->detach;

sleep 1, print for 1 .. 50;
[download]