Test script to check if HTTPS works with the current perl installation

test-https.pl

#! /usr/bin/env perl

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'https://google.com');
my $res = $ua->request($req);

if ($res->is_success) {
   print $res->as_string;
} else {
   print "Failed: ", $res->status_line, "\n";
}