Net::LDAP
Perl LDAP API

サンプル
 use Net::LDAP;
 $ldap = new Net::LDAP("$host");
 $r = $ldap->bind;
 $r->code && die "LDAP bind error:" . $r->error;
 $r = $ldap->search(base => "$basedn", 
                    filter => "$filter");
 $r->code && die "LDAP search error:" . $r->error;
 foreach $entry ($r->all_entries) {
     $dn = $entry->dn();
     print $dn . "\n";
     $attr = $entry->get($attrtype);
     print join(',', @{$attr}) . "\n";
 }
 $ldap->unbind;