BEGIN{ *CORE::GLOBAL::die = sub{ CORE::die( $_[0] //'Unimplemeted' ); } }