[MacPerl] beep, beep

["Joseph A. DiVerdi" <diverdi@XTRsystems.com>]

Forgive the stupid question but I cannot find a simple way to make a 
system sound. The following snippet works but takes a long time to 
execute:

     MacPerl::DoAppleScript("tell application \"Finder\"\nbeep\nend tell\n");

At this point I don't care what sound I make (beep, system sound, 
etc.) I just want to make some noise.

Thanks,
Joseph
--
Joseph A. DiVerdi, Ph.D.
<diverdi@XTRsystems.com>                    970.221.3982 (voice)
<http://www.XTRsystems.com>                 970.224.3723 (fax)
%PGPKey=('D50A9E33',[1024,'D790 3F87 2944 1E65 3286 1AD4 1A10 C5E1 D50A 9E33'])
--

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