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