#!/usr/bin/perl -l

use strict;
use warnings;
use HTTP::Headers;
use HTTP::Request;
use LWP::UserAgent;

my $UPDATE_SERVER = "https://something.com";

my $ua = LWP::UserAgent->new;

    ssl_opts => {
        verify_hostname => 0,
        SSL_ca_file     => 'ops-cert-O.crt',
    };
$ua->timeout(10);
#$ua->agent("");

my $req = HTTP::Request->new( GET => $UPDATE_SERVER );
my $res = $ua->request($req);

print "header ----" . $res->headers_as_string;
print "response ---" . $res->as_string;