BEGIN {
    *CORE::GLOBAL::read = sub (*\$$;$) { return undef };
};