Select Code to Download

eval {
  die 1;
...
  warn "Got the exception '$e'!";
  exit(0);
}

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