my $path = "C:/Users/user1/Documents/TESTPERL";
...
my $url = some_func(...);
...
my $filename = "$path/Website-$url.png";
print "DEBUG: screenshot filename: '$filename'";  # FOR DEBUG only
$driver->capture_screenshot($filename);
...