#!/usr/bin/perl
use strict;
use warnings;

use WWW::Mechanize::Chrome;
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($ERROR);

my $mech = WWW::Mechanize::Chrome->new(launch => 'C:\Program Files (x86)\Google\Chrome\Application\chrome.exe');
$mech->get('https://www.google.com');
print $mech->content( format => 'text' );