use Net::LDAP;
use Net::LDAP::Util qw(ldap_error_text ldap_error_name);

# adapt the following variables to your exchange-Server
my $server = "192.168.0.1"; # or hostname
my $port = 389;
my $user = "cn=username,cn=Recipients,ou=Location,o=Company";
my $password = "topSecret";
my $version = 3;

# connect to server
my $c = Net::LDAP->new($server, port=>$port);
die "Error: couldn't connect: $@\n" unless ($c){

# try to bind as user    
my $mesg = $c->bind( $user, password => $password, 
                     version => $version);

if ($mesg->code()){ # on error
    # get errormessages
    my $errorCode = $mesg->code;
    my $errorText = ldap_error_text($mesg->code);
    my $errorMsg  = ldap_error_name($mesg->code);

    $c->Disconnect();
    
    die <<EOD;

Error in bind: 
 Code: $errorCode
 Message: $errorMsg
 Text: $errorText

EOD
    ;