Pass the Parcel - Randomly turn on and off windows sound

[Melly]

I needed a quick way to randomly turn the sound on and off for a game of pass the parcel...

use strict;
use Win32::Sound;

# the params are the lower and upper range -
#i.e. what is the least and most possible seconds for either the music
+/silence stage?
my $min = $ARGV[0];
my $max = $ARGV[1];
my $sound = Win32::Sound::Volume();
while(1){
  sleep int((rand($max-$min)+0.5)+$min);
  Win32::Sound::Volume() ? (Win32::Sound::Volume(0)) : (Win32::Sound::
+Volume($sound));
}

__END__
4, 9 seem okay params