my $ldap = Net::LDAP->new(
    $ldap_server,
    PORT => $ldap_port,
    debug => 3
) or die "$@";