Select Code to Download

my %fh;
while ( my $line = <$FH> ) {
...
    }
}
close $fh{$_} for keys %fh; # close all files