use Class::WhenNeeded 'Foo::Bar'; my $bad_luck = Foo::Bar::Two::Bad->new; # or possibly use Class::WhenNeeded 'Foo::Bar' => 'no_top_level'; my $good_luck = Three::SaCharm->new;