#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
#use Test::Time;
use Selenium::Remote::Driver;
use Selenium::Remote::WebElement;
use Selenium::Remote::WDKeys;
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 $row = 1;
my $url = $excel->[1]{'A'.$row};
while ($url){
  # do something with url
  process($url);
  ++$row;
  $url = $excel->[1]{'A'.$row};
}

sub process {
  my ($url) = @_;
  print "Processing $url\n";
	$driver->get($url);
        $driver->maximize_window();
	$driver->pause(2000);
	#my $filename = "screenshot.png";
	#$driver->capture_screenshot($filename);
	my $path = "C:/Users/user1/Documents/TESTPERL";
	$driver->capture_screenshot("$path/Website-$url.png");
	$driver->pause(2000);
}