Select Code to Download

$SIG{__DIE__} = sub {
    return if $^S; # ignore die in an eval block
...

    LOGDIE($_[0]);
};