поиск с помощью Net::LDAP

use Net::LDAP;
my ($ldap, $dn, $result);

$ldap = Net::LDAP->new('ldap') or die;
$result = $ldap->bind();
$result->code and die($result->error);

$dn = "cn=fff, ou=ddd, dc=soc, dc=home";
$result = $ldap->search(base=>$dn, filter=>"(objectClass=posixAccount)");
exit unless($result->count);
print $result->entry->get_value('uid') if($result->entry->exists('uid'));