Select Code to Download

use strict;
use warnings;
...
print "\n", $mech->text();
print "\n" . $mech->success();
while (my ($key, $value) = each(%INC)) { print "$key\n"; }

Can't connect to www.google.com:443

pp -x mech_test.pl

use strict;
use warnings;
...
my $request = HTTP::Request->new(GET => "https://www.google.com");
my $result = $ua->request($request);
print Dumper($result);

$VAR1 = bless( {
                 '_protocol' => 'HTTP/1.1',
...
'_uri'}
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );

$VAR1 = bless( {
                 '_content' => 'Can\'t connect to www.google.com:443
...
                                        '_method' => 'GET'
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );