perl -MWin32::Sound -e sleep(1)until((localtime)[2]eq$ARGV[0]);Win32::Sound::Play($ARGV[1])for1..10; 7 Wakeup.wav