my $ad = Net::LDAPS->new('ldaps://ww.xx.yy.zz',verify=>'none',debug=>15) or print "<h1>Could not connect!</h1>";