Select Code to Download

local $SIG{__DIE__} = sub {
    open my $fh, '>>', 'log.err'
...
1 / 0;
__END__
Illegal division by zero at foo.pl line 8.

@_: |fubar! at foo.pl line 7.
|
...
|
$@: |fubar! at foo.pl line 7.
|

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