BEGIN {
    *CORE::GLOBAL::die = sub {
        CORE::die @_ 
            if ref $_[0]
            || ! defined $^S;

        my ($class) = caller(0);
        @_ = ( $class, 'Uncaught', join( '', @_ ) );
        goto $class->can('throw') || \&throw;
    }
}