#! /usr/bin/perl use Net::LDAP; $ldap = Net::LDAP->new ( "" ) or die "Connection Failed $@"; $mesg = $ldap->bind ( "", password => "", version => 3 ); $base = "dc=example,dc=com"; $mesg = $ldap->search ( # perform a search base => $base, filter => "(objectclass=*)" ); $mesg->code && die $mesg->error; foreach $entry ($mesg->all_entries) { $entry->dump; }