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

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

sleep 1, print for 1 .. 50;