my $ad_ldap = Net::LDAP->new( $ad_ldap_server ) or die ($@);
my $ad_mesg = $ad_ldap->bind ( $ad_ldap_user, password => $ad_ldap_pwd, version =>3, onerror => 'die');   
die ( $ad_mesg->error ) if $ad_mesg->code;