I've got a rather large Perl/Tk script that I want to incorporate sound into. The Win32::Sound::WaveOut package does what I need and sounds great in short test programs, including those that use Tk. But when I incorporate it into the big script, the sound quality goes to hell. There seems to be some low-frequency modulation going on, resulting a buzz or warble, depending on the frequency I'm trying to produce. This happens even when the Tk event loop is blocked. I checked CPU usage with the Windows task manager, and in both cases (good and bad), the usage was 100% while sound was playing. Has anyone had a similar experience? Were you able to work around it?

BTW: Modules used by the big script and not by the test programs include Carp, POSIX, and Tie:IxHash.

Update: Solved it. I was also using

use encoding 'cp1252';
[download]

In my quest for brevity, I used chr($value) to pack the sound bytes into the sound buffer instead of pack("C", $value). 'Works fine with ASCII -- not so great with Unicode!