Select Code to Download

 
  my $filter = "(&";
  foreach my $attr (keys %lookingfor)
...
  $mesg->code && die $mesg->error;
  foreach $entry ($mesg->entries) { $entry->dump; }
  $mesg = $ldap->unbind;