BEGIN { *CORE::GLOBAL::getpwuid = sub {
   wantarray ? (undef,undef,undef,undef,undef,undef,undef,
                "c:/somehomedir") : "someusername" }; }