Select Code to Download

foreach ...

open (FH,  "<${file}.txt")  or die "Can't open ${file}.txt: $!\n";
open (FH1, ">${file}1.txt") or die "Can't open ${file}1.txt: $!\n";
while (<FH>) {    ...do stuff with $_...  }
close (FH)  or die "Can't close ${file}.txt: $!\n";
close (FH1) or die "Can't close ${file}1.txt: $!\n";