my $ldapObj = Net::LDAP->new($server);
$ldapObj->bind;	# bind anonymously
my $ldapSearchUser = $ldapObj->search(base => 'o=isp',
                                      filter => '(uid=' . $ENV{'REMOTE_USER'}. ').);

##</code><code>##

$ldapObj->bind($dn, $ENV{'PASSWORD'})