Help for this page

Select Code to Download


  1. or download this
    local $SIG{__DIE__} = sub {
    open my $fh, '>>', 'log.err'
...
1 / 0;
__END__
Illegal division by zero at foo.pl line 8.
  2. or download this
    @_: |fubar! at foo.pl line 7.
|
...
|
$@: |fubar! at foo.pl line 7.
|
  3. or download this
        return if $^S; # we are within an eval block