Actually, I got the CORE and GLOBAL the wrong way around. It should be

*GLOBAL::CORE::rename = \&myrename;
[download]

Or to do it in one step something like

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