[MacPerl] alarm?

["ZACHER, THE" <FISK_ZAN@ccsua.ctstateu.edu>]

I tried this script on mac perl. The script accepted my input but did nothing
after. Is the sleep function part of mac perl? Also how can I make the beep 
'\a' ?

#!perl
print "When to alarm?\n";
$time = <STDIN>;
chop ($time);

sleep ($time);

Zach-




#######
     #
    #
   #     #####
  #
 #
#######