Select Code to Download

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

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

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

my $pid = fork;
if ( !$pid ) { 
...
}

# parent proc continues here