By george i think that's the answer. Sound generated with your fix is the exact same tone as the 8bit one!!! Thanks so much for your help BrowserUK! I tried to do this over a year ago and was stuck then too. I have read the pack docs so many times its crazy but their brevity times my ignorance about value types still confuses me. Here is a working example with your fix for a 16bit mono sound wave... 
use Win32::Sound;
    # Create the object
    $WAV = new Win32::Sound::WaveOut(44100, 16, 1);
    $data = ""; 
    $counter = 0;
    $increment = 440/44100;
    # Generate 44100 samples ( = 1 second)
    for $i (1..44100) {
        # Calculate the pitch 
        # (range 0..65335 for 16 bits)
        $v = int(sin($counter/2*3.14) * (65335/2));
        #signed integer (v) range -32768 <-> 32767
        $data .= pack("v", $v);
        $counter += $increment;
    }
    $WAV->Load($data);       # get it
    $WAV->Write();           # hear it
    1 until $WAV->Status();  # wait for completion
    $WAV->Save("sinus.wav"); # write to disk
    $WAV->Unload();          # drop it

[download]
thanks again, hopefully someone else can use this too. BTW if anyone wants to do this in stereo here's the code for 16bit stereo sound too. Just as above, this generates a 1 second sinusoidal wave at 440Hz but in both channels. 
use Win32::Sound;
    # Create the object
    $WAV = new Win32::Sound::WaveOut(44100, 16, 2);
    $data = ""; 
    $counter = 0;
    $increment = 440/44100;
    # Generate 44100 samples ( = 1 second)
    for $i (1..44100) {
        # Calculate the pitch 
        # (range 0..65335 for 16 bits)
        $v = int(sin($counter/2*3.14) * (65335/2));
        #signed integer (v) range -32768 <-> 32767
        $data .= pack("v", $v);
        $data .= pack("v", $v);
        $counter += $increment;
    }
    $WAV->Load($data);       # get it
    $WAV->Write();           # hear it
    1 until $WAV->Status();  # wait for completion
    $WAV->Save("sinus.wav"); # write to disk
    $WAV->Unload();          # drop it

exit;

[download]
Thanks again all!
jtrue

In reply to Re^2: Win32::Sound 16 bit example by true
in thread Win32::Sound 16 bit example by true

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.