Help for this page
eval { die 1; ... warn "Got the exception '$e'!"; exit(0); }
sub DESTROY { my $self = shift; ... local $@; return $self->DESTROY(@_); }