Select Code to Download

  #!/usr/bin/perl -w

...
  my $ex = Net::LDAP::Exchange->new(SERVER,DOMAIN,LOGIN,PASSWORD);
  my $result_set = $ex->search_lastname('Bisbee');
  print Dumper($result_set);

  package Net::LDAP::Exchange;

...
      my $query = join '', map { "($_=$search*) " } @fields;
      return $query;
  }