Yes its seems common for Perl libraries in commercial environments to get very long and come a right PITA ;-(

However check out the excellent "aliased" module... http://search.cpan.org/dist/aliased/

From its POD...

  use aliased 'My::Company::Namespace::Customer';
  my $cust = Customer->new;

  use aliased 'My::Company::Namespace::Preferred::Customer' => 'Preferred';
  my $pref = Preferred->new;