use LWP;
use strict;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $response = $ua->get("https://cnn.com/");

if ($response->is_success) {
    print "Yay!";
    # process success
} else {
    print "Rats!";
    # process failure
}

##</code><code>##

Free to wrong pool 2f5840 not 8900000f60944183 at C:/Perl64/lib/IO/Socket/SSL.pm
 line 2739.