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