Uncaught exception from user code:
        Expected 'PeerHost' at /usr/local/share/perl5/Net/LDAP.pm line 164.
        IO::Socket::IP::_io_socket_ip__configure('IO::Socket::IP=GLOB(0x1b83bb0)', 'HASH(0x2a69050)') called at /usr/local/share/perl5/IO/Socket/IP.pm line 402
        IO::Socket::IP::configure('IO::Socket::IP=GLOB(0x1b83bb0)', 'HASH(0x2a69050)') called at /usr/lib64/perl5/IO/Socket.pm line 49
        IO::Socket::new('IO::Socket::IP', 'Proto', 'tcp', 'PeerAddr', undef, 'MultiHomed', undef, 'PeerPort', 389, ...) called at /usr/local/share/perl5/IO/Socket/IP.pm line 369
        IO::Socket::IP::new('IO::Socket::IP', 'PeerAddr', undef, 'PeerPort', 389, 'LocalAddr', undef, 'Proto', 'tcp', ...) called at /usr/local/share/perl5/Net/LDAP.pm line 164
        Net::LDAP::connect_ldap('Net::LDAP=HASH(0x1b7ba58)', undef, 'HASH(0x2a69218)') called at /usr/local/share/perl5/Net/LDAP.pm line 122
        Net::LDAP::new('Net::LDAP', 'ldap1.example.com', 'ldap2.example.com', 'port', 389, 'timeout', 3) called at /opt/scripts/dev/adminconsoleV5-Dev.pl line 1112
        main::bind_ldap_new('ARRAY(0x289a820)', 389, 'uid=admin,ou=people,dc=example,dc=com', '/opt/scripts/ssl/cert.pem', '******') called at /opt/scripts/dev/adminconsoleV5-Dev.pl line 2227
        main::call_find_zimbra_user('test.user', 'uid') called at /opt/scripts/dev/adminconsoleV5-Dev.pl line 2109
        main::call_modify_account() called at /opt/scripts/dev/adminconsoleV5-Dev.pl line 2447
        main::main_menu() called at /opt/scripts/dev/adminconsoleV5-Dev.pl line 2389
        main::main() called at /opt/scripts/dev/adminconsoleV5-Dev.pl line 2392 

##</code><code>##

sub call_find_user
{
        my($attribute, $search) = @_;

        if(length($search)){
                my $ldap = bind_ldap_new(\@LDAP_SERVERS,$LDAP_PORT,$LDAP_BIND_DN,$CA_FILE,$LDAP_BIND_PASS);


                my $mesg = search_ldap($ldap, $BASE_DNUSERS_SEARCH, "($search=$attribute)", $SCOPE);
                my $entry = $mesg->entry(0);

                if(defined($entry))
                {
                        my $localdn = $entry->dn();
                        display_msg("dn: $localdn\n", "other");
                        unbind_ldap($ldap);
                        return 1;
                }
                unbind_ldap($ldap);
        }

}

-----
sub bind_ldap_new
{
        my ($ldap_servers,$ldap_port,$ldap_bind_dn,$ldap_ca_file,$ldap_password) = @_;

        my @LOCAL_LDAP_SERVERS = @{$ldap_servers};


        my $ldap = Net::LDAP->new( @LOCAL_LDAP_SERVERS, 
                port => $ldap_port, timeout => 3);
                $ldap-> start_tls( verify => 'optional', 
                cafile => $ldap_ca_file)
                       or die "ERROR: Can't connect to ldap servers($@)\n";

        my $mesg = ldapassert($ldap->bind($ldap_bind_dn, password=>$ldap_password),"Binding to ldap server");

        return $ldap;

}


....
my @LDAP_SERVERS=('ldap1.example.com','ldap2.example.com');

if($changeOnUser && call_find_user("test.user","uid"))
{
        modify_zimbra_account(\%hashValues);
}