my $ldap = Net::LDAP->new( $host, port => $port, version => 3 ) or die "$@";