my $files = ($directory, "\", $file);
[download]

It might be better to concatenate the strings:

my $file_path = $directory . '\\' . $file;
# OR
my $file_path = "$directory\\$file";
[download]

Note that \ is special, to include it literally, you have to backslash it.

When I merely paste your code into my editor, I immediately see (due to syntax highlighting) this line is a problem:

my $files = ($directory, "\", $file);
[download]

It is a syntax error to escape the double quote like that. It needs to eventually be followed by another double quote.

Also, do you use strict and warnings?

Hi ArifS,

There are a number of problems with your code that would have been shown to you had you started your program off using strict and warnings. There is a function provided by File::Spec::Functions named catfile, which will put the proper separator between your directory and file. I'd also suggest using the 3 argument version of open along with a lexical variable instead of a bareword "INPUT". Example changes shown below along with use of Win32 GetFolderPath to use the Desktop as the target directory:

use strict;
use warnings;

use File::Spec::Functions;
use Win32 qw(CSIDL_DESKTOP);

my $directory = Win32::GetFolderPath(CSIDL_DESKTOP);
my $file      = "my log file.log";
my $path = catfile($directory,$file);

open my $input, '<', $path or die "Can't open INPUT: $!";
my @lines = <$input>;

print "I have access to the folder\n";
close $input;
[download]

I tried your script replacing with the following and getting an error-

use Win32 qw(folder(1));

my $directory = Win32::GetFolderPath(folder(1));
[download]

Error:
"folder(1)" is not exported by the Win32 module
Can't continue after import errors at c:\temp\dir5B6B.tmp\AccessFolder
+.pl line 8.
BEGIN failed--compilation aborted at c:\temp\dir5B6B.tmp\AccessFolder 
+line 8.
[download]

Please let me know.

Please explain what the following line is supposed to do:

use Win32 qw(folder(1));
[download]

Where did you find this syntax documented in the documentation of Win32?

What errors do you get?

Maybe you want to explain what the following line in your program does:

my $files = ($directory, "\", $file);
[download]

What steps have you undertaken to verify that this line works?

use File::Slurp;

my @dir = read_dir($ARGV[0]);
my $file = $ARGV[1];

if ($file ~~ @dir){
    print uc"$file FOUND";
    }
    else{
    print uc"$file not found";
}

#usage - script_name.pl [directory] [file_name]
#eg.   - script_name.pl [folder(1)] [my_log_file.log]
[download]