my $sasl = Authen::SASL->new( mechanism => 'GSSAPI' , debug  => 8);
my $ldap;


eval {

   # Login to LDAP
   print "Connecting to LDAP...";
   $ldap = Net::LDAP->new($ldap_server) or die $@;

   my $dse = $ldap->root_dse();
   $dse->supported_sasl_mechanism ( 'GSSAPI' ) || die "\n sorry, $ldap_server does not support GSSAPI...\n";;

   print "Binding... ";

   print Dumper($sasl);
   $_ = $ldap->bind( sasl => $sasl ) or die $@;


};

if ($@) {
     chomp $@;
     die   "\nBind error         : $@",
           "\nDetailed SASL error: ", $sasl->error,
           "\nTerminated";
}

print $_->error_text();
#print $sasl->error;