如何让WWW :: Mechanize工作？

This script:

use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new( autocheck => 1 );

$mech->get( "https://www.google.com" );
print $mech->content;
use strict;
use warnings;
use WW