*GLOBAL::CORE::rename = \&myrename;

##</code><code>##

sub CORE::GLOBAL::rename{ 
    system "ren $_[ 0 ], $_[ 1 ]"; 
    return $? >> 8; 
}