eval {
    ...
    return 1;
} or do {
    my $err = $@;
    WriteErr("$err");
};