#!perl
use strict;
use Win32::Sound;
printf "%s %s\n",$^V,$Win32::Sound::VERSION;

Win32::Sound::Volume('100%');
for my $n ('01'..'10'){
  my $wav = 'C:/Windows/media/Alarm'.$n.'.wav';
  print "Playing $wav\n";
  Win32::Sound::Play($wav);
}