$ perl587 -we'alarm(1); 1 while 1'
Alarm clock
$
$ perl587 -we'$SIG{ALRM}="IGNORE";alarm(1); 1 while 1'
(hangs indefinitey)