$main::SIG{__DIE__} = sub {
    if( !ineval() ) {
        $handler->();
    }
};