eval {
  die 1;
}; if (my $e = $@) { # <--- secure...
  warn "Got the exception '$e'!";
  exit(0);
}

##</code><code>##

sub DESTROY {
  my $self = shift;
  if ($@) {
    local $@;
    return $self->DESTROY(@_);
  }