BEGIN {
    *CORE::GLOBAL::require = sub {
        my $file = shift;
        $file =~ s,^My/,Another/,;
        CORE::require($file)
    };
}

use Data::Dumper;
use My::Foo;