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

$mech->get( "https://www.example.com/" );

print $mech->content;