#!/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();