use Net::LDAP;
use Net::LDAPS;

$uri = "ldaps://mywin2k3vm.mydomain.com";

$ad=Net::LDAPS->new($uri) or die "FAILED: $@";