#!/usr/bin/perl
use strict;
use warnings;

use LWP::UserAgent;
use Data::Dumper;
use IO::Socket::SSL qw(debug3);

my $server="192.168.100.222";
my $port="443";

my $cert = "cert.pem"; #using relative or absolute paths doesn't make a difference
my $ua  = LWP::UserAgent->new();
$ua->ssl_opts('SSL_ca_file' => $cert); #doesn't work
#$ua->ssl_opts('verify_hostname' => 0); #works

my $response= $ua->get("https://$server:$port/");
print $response->as_string;