Select Code to Download

my $file_name_in  = 'infile.txt';
my $file_name_out = 'file%d.txt';
...

   print { $fh_out } $_;
}