Help for this page

Select Code to Download


  1. or download this
    local $SIG{__DIE__} = sub {
        open my $fh, '>>', 'log.err'
            or warn "Can't append to 'log.err': $!" and return;
        print $fh @_;
    }
    
  2. or download this
    $ perl program.pl 2>log.err