[MacPerl] Platform Independent way to beep?

[Jim Correia <correia@barebones.com>]

I'm looking for a platform independent way to beep.

I'd settle for just beeping on the mac too.

Printing \a won't work, since it doesn't work in mpw, toolserver,
sending do scripts to macperl, redirecting to a file, or any environment
in which the output is not going to a terminal that will specially
interpret \a.

So i tried this:

use Mac::Sound;

SysBeep(0) if $^O eq "MacOS";


But that doesn't work on systems that don't have the mac modules
installed.

So how do i do it?

Thanks,
Jim

-- 
Jim Correia                                Bare Bones Software, Inc.
correia@barebones.com                     <http://web.barebones.com>



===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org