#!C:\Perl64\bin\perl
use warnings;
use strict;
use LWP::UserAgent;

my $ua=LWP::UserAgent->new(ssl_opts=>{ verify_hostname => 0});

my $req = HTTP::Request->new(GET => 'https://jeeves.mainoffice.demoulas.corp');

my $result = $ua->request($req);

if($result->is_success){
  print $result->content;
}else{
  print $result->status_line, "\n";
}