use Net::LDAP;

$ldap = Net::LDAP->new( 'MY_IP.DOMAIN1.DOMAIN2.de' ) or die "$@";

$mesg = $ldap->bind ( 'dc=DOMAIN1,dc=DOMAIN1,dc=de', password => 'my_pass' );

$mesg = $ldap->search( # perform a search
    base   => 'ou=Test,ou=Benutzer,ou=DOMAIN1/DOMAIN1',
    filter => '(sAMAccountName=*)',
    scope => 'subtree' 
);
$mesg->code && die $mesg->error;

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

$mesg = $ldap->unbind;   # take down session