Hi. I am trying to make a CD with a gentle beep every 30s . The sound is used by a live coder for timing events with pencil and paper in field research. I don't know much about Perl audio, or about CD file formats. I wrote this little beeping program:

use Win32::Sound;
use Time::Hires qw(sleep);
use strict;
$|++;

Win32::Sound::Volume('100%');
while (1) {
    print ".";
    Win32::Sound::Play("SystemQuestion");
    Win32::Sound::Stop();
    sleep(30);
}
[download]

Is there a way I create a file that I could burn to CD with 60 minutes of this beeping that will play back on an audio CD player?

Thanks!

rkg