eval {
  local $SIG{ALRM} = sub {die "alarm here"};
  alarm(5);
  long_code();
  alarm(0);
}