At 18.29 -0500 1999.08.06, Cameron Ashby wrote: >Can I get the system to send me an alarm event of some kind after some >number of seconds? #!perl -w $|++; $SIG{ALRM} = \&bar; alarm(5); sleep(10); print "foo"; sub bar { printf "Caught \$SIG{$_[0]}\n"; } -- Chris Nandor mailto:pudge@pobox.com http://pudge.net/ %PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6']) ===== Want to unsubscribe from this list? ===== Send mail with body "unsubscribe" to macperl-request@macperl.org