perl 播放windows文件

#cpan Win32::Sound
use strict;
use Win32::Sound;

Win32::Sound::Volume(65535);

while (<*.wav>) {
Win32::Sound::Play($_);
}