There is a max limit you can query on with LDAP (at least the exchange server that I played with did). I just queried on "A" through "Z" and figured that would work. Test this against your current list and make sure you get everyone.

  sub get_company_list
  {
      my ($self) = @_;
      my @company_list = ();
      for my $search ("A".."Z") {
          push @company_list, @{$self->search_lastname($search)};
      }
      return \@company_list;
  }
[download]

-biz-