Help for this page

Select Code to Download


  1. or download this
    BEGIN {
    *CORE::GLOBAL::sysread = sub (*\$$;$) {
        # whatever
    };
}
  2. or download this
    {
    local *CORE::GLOBAL::sysread = \&mysysread;
    # do things that call builtin sysread
}
# no more replacement from here on