Select Code to Download

#!/usr/bin/perl -w

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

#!/usr/bin/perl -w

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