Mega Code Archive

 

Categories / Perl / Win32

 

Play wav file

#!/usr/bin/perl -w use strict; use Win32::Sound; Win32::Sound::Volume(65535); while (<*.wav>) {     Win32::Sound::Play($_); }