Help for this page
*GLOBAL::CORE::rename = \&myrename;
sub CORE::GLOBAL::rename{ system "ren $_[ 0 ], $_[ 1 ]"; return $? >> 8; }