sub f {
    local $SIG{ALRM} = sub { print "SIGALRM\n" }; # line 9
  }

  if (fork) {
    # parent
    f while 1;
  } else {