use Net::LDAP;
use Net::LDAP::Util qw(ldap_error_name);
my $server = "DOM.TLD";
my $bindDn = "cn=LDAPUSER,cn=useracc,dc=DOM,dc=TLD";
my $password = "PASSWD";
my $searchbase = "dc=DOM,dc=TLD";

my $ldap = Net::LDAP->new( $server )
  or die "Error in connect: $@\n";

my $rc = $ldap->bind(
    $bindDn,
    password => $password,
    version  => 3,
);
die "Error: " . ldap_error_name($rc) if $rc->code;

my $search = $ldap->search(
    filter => '(objectClass=user)', # nur user sind interessant
    scope  => 'sub',
    base   => $searchbase,
    attrs  => [ 'sAMAccountName' ]
);
die "Error: " . ldap_error_name($search) if $search->code;

my $userCount = $search->count();
for my $i (0..$userCount) {
  my $entry = $search->entry( $i );
  print $entry->get_value('sAMAccountName'), " => ", $entry->dn, "\n";
} # for

$ldap->unbind;