18c18
< my $ldap = Net::LDAP->new($dc, port => 636, scheme => 'ldaps') or die "$@";
---
> my $ldap = Net::LDAP->new($dc) or die "$@";