#!/usr/bin/perl -w

use Net::LDAP;

$dn = 'CN=jrdepriest,CN=Users,DC=domain,DC=com';
$password = 'password';
$ldap = Net::LDAP->new( 'adam.domain.com', debug => 2) or die $@;
$result = $ldap->bind( $dn, password => $password );
die $result->error if $result->code;

##</code><code>##

#!/usr/bin/perl -w

use Net::LDAP;
use Authen::SASL;

$dn = 'CN=jrdepriest,CN=Users,DC=domain,DC=com';
$user = 'domain\jrdepriest';
$password = 'password';
$sasl = Authen::SASL->new(
  mechanism => 'DIGEST-MD5',
  callback => {
    user => $user,
    pass => $password
  }
);
$ldap = Net::LDAP->new( 'adam.domain.com', debug => 2) or die $@;
$result = $ldap->bind( $dn, sasl => $sasl );
die $result->error if $result->code;