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

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