That doesn't make sense to Perl. The package Foo::Bar::Blat and package Bar::Blat have nothing to do with each other. I could show you how to do this evil thing, but I'd rather not, because it's not using the metaphor of packages and classes properly.