#!/usr/bin/perl

use strict;
use Selenium::Chrome;

my $objDrv = Selenium::Chrome->new(
        'extra_capabilities' => {
                'chromeOptions' => {
                        'args' => [
                                'headless',
                                'disable-gpu',
                        ],
                },
        },
);

$objDrv->get('https://www.google.com/');
$objDrv->capture_screenshot('testweb_chrome.png');
print STDERR $objDrv->get_title(), "\n";

binmode STDOUT, ':utf8';
print $objDrv->get_page_source();

$objDrv->quit();