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

##</code><code>##

{
    local $SIG{__DIE__};
    eval {
        # your code here
        ...
    };
}
if($@) {
    # oops!
    ... 
}