Select Code to Download

use strict;
use warnings;
...

my $status = $zip->overwriteAs('EOC-triage.zip');
die "Unable to write Zip - $status : $!\n" if $status != AZ_OK;

IO error: reading data :  
 at C:\strawberry\perl\vendor\lib/Archive/Zip/NewFileMember.pm line 60
    
...
Uncaught exception from user code:
    Unable to Write Zip - 4 : 
 at gatherTriage2.pl line 52

use strict;
use warnings;

...
$arch->addFile($_) for (@files);

my $status = $arch->overwriteAs($file);