#!/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;