#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
#use Test::Time;
use Selenium::Remote::Driver;
use Selenium::Remote::WebElement;
use Spreadsheet::Read;
use Text::CSV_XS;


my $driver = Selenium::Remote::Driver->new(
    'remote_server_addr' => 'localhost',
    'browser_name' => 'chrome',
    'port' => '4444',
);


my $excel = ReadData ("TEST.csv");
my $data = $excel->[1]{A1};
foreach my $data (0..9){
	$driver->get($data);
	$driver->maximize_window();
	#$driver->find_element('q','name')->send_keys($data);
	$driver->pause(2000);
	$driver->send_keys_to_active_element(KEYS->{'control'}, 't');

	$driver->pause(2000);
	my $filename = "screenshot.png";
	$driver->capture_screenshot($filename);
	$driver->pause(2000);

}

$driver->quit();	

##</code><code>##

C:\Users\user1\Documents\TESTPERL>perl TEST6.pl
Error while executing command: invalid argument: 'url' must be a string
  (Session info: chrome=70.0.3538.77)
  (Driver info: chromedriver=2.43.600210 (68dcf5eebde37173d4027fa8635e332711d2874a),platform=Windows NT 6.1.7601 SP1 x86_64) at C:/Strawberry/perl/sit
e/lib/Selenium/Remote/Driver.pm line 391.
 at C:/Strawberry/perl/site/lib/Selenium/Remote/Driver.pm line 348.