#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
if ($^O =~ /mswin/i) { $Archive::Zip::UNICODE = 1; }

# Zufallsdateien erzeugen
say '-' x 80;
my $nr = 1;
$nr ++ while -e "test$nr";
mkdir("test$nr");
for (my $fnr = 1; $fnr < 11; $fnr ++) {
    open(my $fh,'>',"test$nr/testdatei$fnr.txt");
    my $count = int(rand((9000)+1))+100;
    for (my $x = 0; $x < $count; $x ++) { print $fh chr(int(rand((25)+1))+65); }
    close($fh);
}

# ZIPpen
my $zip = Archive::Zip->new();
my $error = '';
Archive::Zip::setErrorHandler(  # auskommentieren um das ursprüngliche
    sub{                        # und jetzt gelöste Problem zu sehen
        chomp($_[0]);
        $error = "FEHLER '$_[0]'";
    }
);
mkdir('archive_zip_temp') if !-e 'archive_zip_temp';
Archive::Zip::tempFile('archive_zip_temp');
my @pfade = ("test$nr");
my $flag = 0;   # 0=wilde Fehlermeldungen erzeugen / sonst 1
while (scalar @pfade) {
    my $pfad = shift @pfade;
    if (opendir(my $fh,$pfad)) {
        foreach my $file (sort {$a cmp $b} readdir $fh) {
            next if $file eq '.' || $file eq '..';
            if (-d "$pfad/$file") {
                push @pfade,"$pfad/$file";
            }
            else {
                if (open(my $t,'<',"$pfad/$file")) {
                    close($t);
                    my $file_member = $zip->addFile({
                        filename            => "$pfad/$file",
                        compressionLevel    => 7,
                    });
                    if (!$flag) {
                        unlink("$pfad/$file");  # mitten im Vorgang Dateien entziehen...
                        $flag = 1;
                    }
                    say "add '$pfad/$file'";
                }
                else { say "$pfad/$file nicht lesbar" }
            }
        }
    }
    else { say "$pfad -> $! in ".__LINE__.' -> wird ignoriert, darum geht es im Moment nicht'; }
}
say '-' x 80;
say "Endergebnis: ".$zip->writeToFileNamed('test.zip');
say '-' x 80;
if ($error ne '') { say $error; }
else { say 'OK'; }