Select Code to Download

foreach $file (@file){
    open(MYFILE, $dir.$file[$i]) or die qq(Cannot open $file[$i]\n);
 ...