BEGIN {
    $SIG{__DIE__} = sub {
        die @_ if $^S; # dont mess with eval.

        # ...my custom handler code...
        exit(0);
    }
    
    eval {
        die 'another day';
    };
    
    if ($@) {
        # execution never happens
    };
}

eval {
    die 'to day good';
};

if ($@) {
    # this works
};