use strict;
use warnings;
use LWP::Debug qw(+);
use WWW::Mechanize;
use HTML::HeadParser;
use Crypt::SSLeay; # added per suggestion by zentara
require HTML::HeadParser;
my $mech = WWW::Mechanize->new(cookie_jar => {}, autocheck => 0);
$mech->agent_alias( 'Windows Mozilla' );
$mech->get('https://www.google.com');
print "\n", $mech->uri();
print "\n", $mech->status();
print "\n", $mech->text();
print "\n" . $mech->success();
while (my ($key, $value) = each(%INC)) { print "$key\n"; }