Select Code to Download

my @in = <>;

while ( <> ){
...
}

open (READ, @in) || die "cannot open @in: $!.\n";

while ( <> ){
    for (my $i=0; $i<=$#file_names; $i++){
...
    }
}