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

use Net::LDAP ;

local $Base = "" ;
local $Filter = "mail=user@domain.de" ;
#Zugangsdaten
my $account = 'mail=blub@ichdarf.de';
my $pwd = 'falschespwd';
###Verbinden
my $ldap = Net::LDAP->new('ldapserver.blabla.de' ) or die "$@";
my $mesg = $ldap->bind( $account,
password => $pwd
);
###Ldap abfrage
$mesg = $ldap->search (
                        base => $Base,
                        filter => $Filter
                      );
$mesg->code && die $mesg->error ;

if ( $mesg->count == 0 ) {

}
foreach $entry ( $mesg->all_entries )
{

 $entry->dump;

}
$ldap->unbind ;