Help for this page
$SIG{ALRM} = \&timed_out; eval { ... sub timed_out { die "GOT TIRED OF WAITING"; }
C:\>perl -e "print join ' ', keys %SIG" STOP NUM05 NUM06 ALRM NUM07 NUM24 NUM16 NUM17 NUM18 NUM19 ILL CHLD SEG +V PIPE CLD ABRT CONT INT QUIT KILL BREAK TERM NUM01 FPE NUM10 NUM12