{
    local *CORE::GLOBAL::die = sub {
        print "Really die? ";
        if (($resp = <STDIN>) =~ /^y/i) {
            CORE::die @_;
        } else {
            print "narrowly averted: @_\n";
        }
    };
    # do the thing that dies
}