Select Code to Download

use Win32::Sound;
    # Create the object
...
    1 until $WAV->Status();  # wait for completion
    $WAV->Save("sinus.wav"); # write to disk
    $WAV->Unload();          # drop it

use Win32::Sound;
    # Create the object
...
    $WAV->Unload();          # drop it

exit;