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

##</code><code>##

Use of uninitialized value $@ in ...