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

#-----------------------------------------------#
# connect and authenticate
#-----------------------------------------------#
my $dc     = 'brbdc1';
my $dn     = "OU=OurDept,dc=OurDomain,dc=com";

# Create LDAP object; check auth capabilities.
my $ldap = Net::LDAP->new($dc) or die;
my $dse  = $ldap->root_dse;
die "Can't support GSSAPI" unless $dse->supported_sasl_mechanism('GSSAPI');

# Create auth object; use it to bind to LDAP server.
my $sasl = Authen::SASL->new(mechanism => 'GSSAPI') or die;
my $rc = $ldap->bind(sasl => $sasl);
die 'Error ' . $rc->code . ': ' . $rc->error if $rc->code;

##</code><code>##

No SASL mechanism found
 at //Summ2/Perl/site/lib/Authen/SASL.pm line 77
 at //Summ2/Perl/site/lib/Net/LDAP.pm line 392