sub *GLOBAL::CORE::rename {...}
[download]

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]

---

Examine what is said, not who speaks.

"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
"Memory, processor, disk in that order on the hardware side. Algorithm, algoritm, algorithm on the code side." - tachyon