eval { local $SIG{'__DIE__'} = sub { die $@ };
      # do something that may die
      };