Select Code to Download

foreach my $file (@select_files)
{
   copy($file, "C:\\temp\\$file") or die
     "Failed to copy $file: $!\n";
}

use strict;

...
}

find(\&process_file, $dir);