Select Code to Download

my $message = $@;
if( open my $log, '>>', 'log.err' ) {
...
    warn "Couldn't write to 'log.err': $!";
    warn $message;
};

    return if $^S; # we are within an eval block