Help for this page

Select Code to Download

Select or download this

  sub f {
    local $SIG{ALRM} = sub { print "SIGALRM\n" }; # line 9
...
    # parent
    f while 1;
  } else {