use Net::LDAP;
 
 $ldap = Net::LDAP->new( 'company.ldap.com' ) or die "$@";
 $mesg = $ldap->bind ;    # an anonymous bind
 $mesg = $ldap->search( # perform a search
                        base   => "ou=corp",
                        filter => "(&(cn=Any User))"
			
                      );
 $mesg->code && die $mesg->error;
 foreach $entry ($mesg->entries) { $entry->dump; }
 $mesg = $ldap->unbind;   # take down session