Help for this page

Select Code to Download

Select or download this

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

Select or download this

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