Select Code to Download

c=org
  co=MyCompany
...
      cn=Mickey Mouse id456
      cn=Donald Duck id123
      cn=Tim Towdi id111

x) cn=Donald Duck id123,cn=Users,co=MyCompany,c=org
x) cn=Mickey Mouse id456 ,cn=Users,co=MyCompany,c=org

use Net::LDAP;
my $ldap = Net::LDAP->new($ldapServer) or die "Error: $@";
...
  }
}
$ldap->unbind();

use Net::LDAP;
my $ldap = Net::LDAP->new($ldapServer) or die "Error: $@";
...
  print "Ok\n";
  $ldap->unbind();
}

  perldoc Net::LDAP::FAQ
  perldoc Net::LDAP::Examples