my $searchresult = do_search($ldap);
   foreach my $entry ($searchresult->entries) {
     print "Matched: ", $entry->dn, "\n";
   }