my $ldap = Net::LDAPS->new( 'hostname' ) or die "$@";