#!/usr/bin/perl

use strict;
use warnings;
use Net::LDAPS;

my $ldap = Net::LDAPS->new(
    server => 'ldaps://127.0.0.1',
    verify => 'require',
    capath => '/etc/openssl/cacerts/'
) or die $@;