$waveOutSetVolume ||= new Win32::API("user32", "waveOutSetVolume", ['N', 'N'], 'N') || die "unable to load";
my $chk = $waveOutSetVolume->Call($hwnd, 0x6000);