Got message 49 error when bind to LDAP server

[sowing]

I am trying to bind to a LDAP server, but failed.
Code as follow:

#!/usr/bin/perl
 
use strict;
use warnings;
use Net::LDAP;
use Data::Dumper;
use Net::LDAP::Util qw(ldap_error_name  ldap_error_text);
use Authen::SASL qw(Perl);
 
my $ldap = Net::LDAP->new("1.1.1.1",port => 389,version => 3);
my $sasl = Authen::SASL->new(
              mechanism => "DIGEST-MD5",
              callback =>{
                pass => "***",
                user => "***\@test.com"
              }
             );
my $bind = $ldap->bind(sasl => $sasl);
if($bind->code)
{
    LDAPerror("Binding",$bind);    
}
else
{
    print "ok!\n";    
}
###---Add for ERROR display--####
sub LDAPerror
{    
      my ($from,$mesg) = @_;
    print "Return code: ",$mesg->code ;
      print "\tMessage: ", ldap_error_name($mesg->code);
      print " :",        ldap_error_text($mesg->code);
      print "MessageID: ",$mesg->mesg_id;
      print "\tDN: ",$mesg->dn."\n";
}
 
###--Add End---###
 
if($ldap)
{
    $ldap->unbind;    
}
exit;

After running the script the result is:

Return code: 49 Message: LDAP_INVALID_CR EDENTIALS :The wrong password was supplied or the SASL credentials could not be processed
MessageID: 2 DN:

For "pass" and "user" match each other well, so the error may cauesd by SASL credentials, but i don't know the TRUE reason.
I appreciate Any advice, thanks.

[nithinpes]

I am trying to bind to a LDAP server, but failed.
Code as follow:

#!/usr/bin/perl
 
use strict;
use warnings;
use Net::LDAP;
use Data::Dumper;
use Net::LDAP::Util qw(ldap_error_name  ldap_error_text);
use Authen::SASL qw(Perl);
 
my $ldap = Net::LDAP->new("1.1.1.1",port => 389,version => 3);
my $sasl = Authen::SASL->new(
              mechanism => "DIGEST-MD5",
              callback =>{
                pass => "***",
                user => "***\@test.com"
              }
             );
my $bind = $ldap->bind(sasl => $sasl);
if($bind->code)
{
    LDAPerror("Binding",$bind);    
}
else
{
    print "ok!\n";    
}
###---Add for ERROR display--####
sub LDAPerror
{    
      my ($from,$mesg) = @_;
    print "Return code: ",$mesg->code ;
      print "\tMessage: ", ldap_error_name($mesg->code);
      print " :",        ldap_error_text($mesg->code);
      print "MessageID: ",$mesg->mesg_id;
      print "\tDN: ",$mesg->dn."\n";
}
 
###--Add End---###
 
if($ldap)
{
    $ldap->unbind;    
}
exit;

After running the script the result is:

Return code: 49 Message: LDAP_INVALID_CR EDENTIALS :The wrong password was supplied or the SASL credentials could not be processed
MessageID: 2 DN:

For "pass" and "user" match each other well, so the error may cauesd by SASL credentials, but i don't know the TRUE reason.
I appreciate Any advice, thanks.

The error certainly points out that credentials provided were wrong. May be you forgot to escape some special characters in username/password!
It is always preferable to use single-quotes over double-quotes, when you are passing literal string (without any substitutions). You can also avoid escaping all those special meaning characters.

callback =>{
                pass => 'password' ,
                user => '[e-mail]' ,
              }