use strict;
use warnings;
use LWP::UserAgent;
use LWP::Debug qw(+);
use HTML::HeadParser;
use Crypt::SSLeay;
use Data::Dumper;
my $ua = LWP::UserAgent->new;
$ua->agent("LWP");
my $request = HTTP::Request->new(GET => "https://www.google.com");
my $result = $ua->request($request);
print Dumper($result);