Select Code to Download

my ($file1, $file2) = qw(file1 file2);
open INDAT,  "<", $file1 or die "Cannot open ($file1) for reading: $!"
+; 
open INCOMP, "<", $file2 or die "Cannot open ($file2) for reading: $!"
+;
...
}
close INCOMP;
close INDAT;

open FH, "<$file1" ...
# or
open FH, $file1 ...