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

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