Help for this page

Select Code to Download


  1. or download this
    perl -MWin32::Sound -e " Win32::Sound::Play( qq[$ENV{WINDIR}/media/cho
+rd.wav] , SND_ASYNC ); sleep 3; Win32::Sound::Stop(); "
  2. or download this
    perl -MWin32::Sound -e " Win32::Sound::Play( qq[$ENV{WINDIR}/media/cho
+rd.wav] , Win32::Sound::SND_ASYNC() | Win32::Sound::SND_LOOP() ); sle
+ep 3; Win32::Sound::Stop(); "