#!/usr/bin/perl

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

$sasl = Authen::SASL->new('CRAM-MD5', password => 'mypassword');
$ldap = Net::LDAP->new('leconte.mckee.com') or die "$@";
$mesg = $ldap->bind('cn=Manager,dc=mckee,dc=com', sasl => $sasl, version => 3);
print $mesg->error . "\n";

