my $directory = "folder(1)";
my $file      = "my log file.log";

my $files = ($directory, "\", $file);
print $files;

# .\\$directory\\$file
open INPUT, "<.\\$files" or die "Can't open 'INPUT': $!";

my @lines = <INPUT>;
print "I have access to the folder\n";
close INPUT;