Select Code to Download

open my $fh_input, "<", "input.txt" or die "$!";
my %fh = ();
...
foreach (keys %fh) {
   close $fh{$_};
}