#!/usr/local/perl/bin/perl -w

use Net::LDAP;

my $dc = 'my Active Directory's Servers Ip'
my $ldap = Net::LDAP->new($dc) or die $@;

my $rootdse = $ldap->root_dse(attrs=>['defaultNamingContext']);
my $base = $rootdse->get_value('defaultNamingContext');

my $user = 'mySuperuser@ad.mydomain.com';
my $password = 'mySuperUserPassword';

my $rc = $ldap->bind ($user, password=>$password);
die $rc->error if $rc->code;

my $scope="subtree";

my $filter="(&(objectClass=organizationalPerson))";
my $attrs=['distinguishedName'];
my $search=$ldap->search(
   base => $base,
   filter => $filter,
   attrs => $attrs
  );
die $search->error if $search->code;

foreach my $entry ($search->entries) {
  $entry->dump;
}