how to connect to openldap using Net::LDAP->new

[Lakshmi M. <lm...@fl...>]

I have openldap running on my server(192.104.61.84), under my home
directory.
I assumed that it is on port 389.
when I tried to connect through perldap I got  an error.

the code is ;
-----------------------------------------

#Package definitions
use Net::LDAP qw(:all);    #use for all code
use Net::LDAP::Entry;

use Net::LDAP::Util qw(ldap_error_name ldap_error_text);  #use for error
handlin
g

#Initializing

$server="192.104.61.84";
$port=389;

$ldap = Net::LDAP->new($server, port=>$port) or die "Unable to connect
to server
 $server : $@\n";

--------------------------------------------------------
The error is :
-------------------------------------------------------

Unable to connect to server 192.104.61.84 : IO::Socket::INET: Timeout

-------------------------------------------------------------

Would anyone please tell me how to connect to openldap using
Net::LDAP->new

Thanks,

Lakshmi