Got this running:

#!/usr/bin/env perl
use strict;
use warnings;

use Net::LDAP;
my $server = "MY_IP.DOMAIN1.DOMAIN2.de";
my $ldap = Net::LDAP->new( $server ) or die $@;
$ldap->bind('myusername@DOMAIN1.DOMAIN2.de', password => 'mypassword')
+;

my $result = $ldap->search(
    base   => "ou=Test,ou=Benutzer,ou=DOMAIN1/DOMAIN2,dc=DOMAIN1,dc=DO
+MAIN2,dc=de",
    filter => "(objectClass=*)"
);

die $result->error if $result->code;

printf "COUNT: %s\n", $result->count;

foreach my $entry ($result->entries) {
    $entry->dump;
}
print "===============================================\n";

foreach my $entry ($result->entries) {
    printf "%s <%s>\n",$entry->get_value("displayName"),($entry->get_v
+alue("sAMAccountName") || '');
}

$ldap->unbind;
[download]