#!/usr/bin/perl

use strict;
use Selenium::Remote::Driver;

my $objDrv = Selenium::Remote::Driver->new(
#       'browser_name' => 'internet explorer',
#       'browser_name' => 'chrome',
        'browser_name' => 'MicrosoftEdge',
        'platform' => 'Windows 10',
        'remote_server_addr' => 'windows-client.example.jp',
        'port' => '4444',
        'auto_close' => 0,
);

$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();