my $WAV1 = new Win32::Sound::WaveOut($sound_a) or die "WaveOut: $!";
# open sound for channel 1
...
...
$WAV1 -> Volume($level_a, $level_a);
$WAV1 -> Play() or die "Play: $!";
# play sound with the level set

##</code><code>##

my $level_a_scale = $frame3-> Scale(-variable=>\$level_a, -from => 0, -to => 65535);

##</code><code>##

$WAV1 -> Volume($level_a, $level_a);