#!/usr/bin/perl -w

use Net::LDAP;
$ldap = Net::LDAP->new('127.0.0.1') or die "$@";
$ldap->bind ;    # an anonymous bind

$mesg = $ldap->search (  # perform a search
                        base   => "c=US",
                        filter => "(objectclass=*)"
                       );

$mesg->code && die $mesg->error;

foreach $entry ($mesg->all_entries) { $entry->dump; }

$ldap->unbind;   # take down session