LDAP client

LDAP client

#!/usr/bin/perl
use strict;
use warnings;
use Net::LDAP;

my $ldap = Net::LDAP->new("dom0.dyndns.org") or die $@;
$ldap->bind();

my $base_dn = "dc=dom0,dc=dyndns,dc=org";

my $mesg = $ldap->search( base => $base_dn, filter => "uid=*" );

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

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