use Win32::Sound;
Win32::Sound::Play('SystemDefault',SND_ASYNC);

##</code><code>##

system('paplay /usr/share/sounds/gnome/default/alert/sonar.ogg');

##</code><code>##

use File::Which;
my $paplay_path = which 'paplay';

##</code><code>##

my $pid = fork;
if ( !$pid ) { 
    # in the child process
    system $paplay_path, '/usr/share/sounds/gnome/default/alert/sonar.ogg';
}

# parent proc continues here