Select Code to Download

foreach my $file (@filenames) {
    open (INFILE, "$file") || die ("Can't open file $file$!");
...
    close (INFILE);
   print OUTFILE1 @all;
}

foreach my $file (@filenames) {
    open (INFILE, "$file") || die ("Can't open file $file$!");
...
    close (INFILE);
}