perl -MWin32::Sound -le "print($_), Win32::Sound::Play($_) for qw/SystemDefault SystemAsterisk SystemExclamation SystemExit SystemHand SystemQuestion SystemStart/"

##</code><code>##

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); }"