opendir (dir, "C:\Users\Admin\Desktop\Staples files");
@dir_content = readdir(dir);
closedir(dir);

for $d(@dir_content){
	print "$d ";
}

##</code><code>##

opendir dir, "C:\Users\Admin\Desktop\Staples files\";
my @files = readdir(dir);
closedir(dir);

foreach $file(@files){
	print "$file \n";
}
print $#files ;

##</code><code>##

 open file, "< C:\Users\Admin\Desktop\staples\readfile.txt";
@file_content = <file>;
for $f (@file_content){
	print "$f \n";
}