#!/usr/bin/perl -w
use Net::LDAP;

$ldap = Net::LDAP->new( '127.0.0.1' ) or die "$@";
$mesg = $ldap->bind;
$mesg = $ldap->search(base => "o=test",
filter => "(&(objectclass=domain)(maildomain=test.de))"
);
$mesg->code && die $mesg->error;
print "Debug: ".($mesg->entries)."\n";
$mesg->$ldap->unbind;