BEGIN {
    *CORE::GLOBAL::sysread = sub (*\$$;$) {
        # whatever
    };
}