my $filter = "(&"; foreach my $attr (keys %lookingfor) { $filter .= "($attr=\" . escape_filter_value($lookingfor{$attr}) . "\")"; } $filter .= ")"; $ldap = Net::LDAP->new($server); $mesg = $ldap->bind; $mesg = $ldap->search( base => $base, filter => $filter ); $mesg->code && die $mesg->error; foreach $entry ($mesg->entries) { $entry->dump; } $mesg = $ldap->unbind;