Select Code to Download

opendir (dir, "C:\Users\Admin\Desktop\Staples files");
@dir_content = readdir(dir);
closedir(dir);
...
for $d(@dir_content){
    print "$d ";
}

opendir dir, "C:\Users\Admin\Desktop\Staples files\";
my @files = readdir(dir);
closedir(dir);
...
    print "$file \n";
}
print $#files ;

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