eval {
  local $SIG{ALRM} = sub {die "alarm here"};
  alarm(5);
  eval {
    long_code();
  };
  alarm(0);
  die if $@; # propagate error
}
die if $@ && $@ !~ /alarm here/;