my $ldap = Net::LDAP->new( $host, version => 3 ); if( !$ldap ) { return new Core::ErrorValue("LDAPError", $@ ); } my $mesg = $ldap->start_tls( verify => 'none', sslversion => 'sslv3', capath => '/etc/openldap/cacerts' ); my $mesg = $ldap->bind( $bindstring, password => $password);