Select Code to Download

use strict;
use warnings;
...
foreach my $i (0..$#files) {
    close($fh[$i]) or die "close '$files[$i]': $!";
}