perl -MWin32::Sound -le "for(qw/welcome.wav DNE.wav/) { print qq(With Default: $_); Win32::Sound::Play($_); sleep(1); print qq(No Default: $_); Win32::Sound::Play($_,SND_NODEFAULT); sleep(1); }"