Select Code to Download

my $okay= eval {
    ....;
...
if(  ! $okay  ) {
    warn "Error in eval: $@\n";
}

sub DESTROY {
    # local $@;   # Uncomment this line to "fix" this
...
} else {
    warn "eval succeeded.\n";
}