[MacPerl] alarm

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

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

sleep ($time);

sorry, I had submitted the above script and forgot to include the last line, 
which is:

print "sound alarm \a";

Zach-