Select Code to Download

foreach my $file (@files) {
    open my $fh, '<', $file or warn "Coudn't open $file \n";
...
    }
    close $fh;
}