in reply to Re: Alarm and Telnet issuesin thread Alarm and Telnet issues
Thanks for the help!
use POSIX (); $SIG{USR1} = sub { ... }; unless(fork) { sleep(4); kill(POSIX::SIGUSR1(), getppid()); exit; } [download]