#!/usr/bin/perl

use Crypt::SSLeay;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(3);
my $response = $ua->get('https://66.11.78.112');

#.... and so on