sub check_id {
   [...]
   eval {
      my sig_die_handler = sub { ... };
      local $SIG{__DIE__} = \&sig_die_handler(shift);
      [...]
   }
}