请教关于perl-ldap的bind连接的问题

最近在用ldap模块连接数据库，总是搞不通。
代码如下：

use Net::LDAP;
use Data:umper;
use Net::LDAP::Util qw(ldap_error_name  ldap_error_text);
use Authen::SASL qw(Perl);

$ldap = Net::LDAP->new("1.1.1.1",port => 389,version => 3);
$sasl = Authen::SASL->new(
              mechanism => "DIGEST-MD5",
              callback =>{
                pass => "****",
                user => "***\@test.com"
              }
             );
$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";

          #---
          # Programmer note:
          #
          #  "$mesg->error"  DOESN'T work!!!
          #
          #print "\tMessage: ", $mesg->error;
          #-----
}
###--Add End---###

运行后结果是：
Return code: 49 Message: LDAP_INVALID_CREDENTIALS :The wrong password was supplied or the SASL credentials could not be processed。

不知道什么原因，盼望高手指点。谢谢啦~

大家都没有用过这个模块吗？
哭了~