Select Code to Download

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

{
    local $SIG{__DIE__};
...
    # oops!
    ... 
}