Select Code to Download

foreach my $file_name (@array) {
    open FILE, "$file_name" or die "File not exists";
...
        }
    }
}