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

##</code><code>##

my $path = "C:/Users/user1/Documents/TESTPERL";
$driver->capture_screenshot("$path/Website-$url.png");

##</code><code>##

C:\Users\user1\Documents\TESTPERL>perl TEST7.pl
Processing https://www.tricentis.com/
binmode() on closed filehandle $fh at C:/Strawberry/perl/site/lib/Selenium/Remote/Driver.pm line 1014.
print() on closed filehandle $fh at C:/Strawberry/perl/site/lib/Selenium/Remote/Driver.pm line 1015.
Processing https://learn.perl.org/examples/spreadsheet_read.html
binmode() on closed filehandle $fh at C:/Strawberry/perl/site/lib/Selenium/Remote/Driver.pm line 1014.
print() on closed filehandle $fh at C:/Strawberry/perl/site/lib/Selenium/Remote/Driver.pm line 1015.
Processing https://github.com/mozilla/geckodriver/releases
binmode() on closed filehandle $fh at C:/Strawberry/perl/site/lib/Selenium/Remote/Driver.pm line 1014.
print() on closed filehandle $fh at C:/Strawberry/perl/site/lib/Selenium/Remote/Driver.pm line 1015.

##</code><code>##

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