$ldap = Net::LDAP->new($server) or die "$@";