Select Code to Download

# use this form of foreach instead of 'my $FH = $_'
foreach my $FH (@files) {
...
    # we should report that fact.
    warn "File '$FH' contained unexecuted commands:\n$batch\n";
}

foreach my $FH (@files) {
    open my $FILE, '<', $FH or die("Cannot read $FH: $!");
...
        # error handling here
    }
}