Select Code to Download

while (<INPUT>)  {
        chomp($_);
...
            
            }
        }

for my $fn (@file_names){
    open my $handle, '<', $fn or die "Can't open `$fn' for reading: $!
+";
...
    # and write to output file
    close $fn;
}