$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;

my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0,
                                            SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
   },);

my $req = HTTP::Request->new( GET => 'https://xkcd.com/');
my $response = $ua->request($req);
my $content = $response->content;
my $sitePrefix = 'https://xkcd.com/';