use Net::LDAP;
 
 $ldap = Net::LDAP->new( 'ldap.bigfoot.com' ) or die "$@";
 $mesg = $ldap->bind( "cn=$uid,$baseDN",
                      password => "$pwd"
                    );
 $mesg->code && die $mesg->error;