Select Code to Download

  use POSIX qw(:signal_h) ;

...
  local $SIG{ALRM} = sub .... ;
  sigprocmask(SIG_SETMASK, $sigset );

use warnings ; use strict ;

...
  print "ALRM storm started\n";
  1 while kill ALRM => getppid;
} ;