$SIG{__DIE__} = sub {
    return if $^S;  # inside eval
    # write to log:
    ...
};