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

my @verzeichnisse = ('/webserver/homepage1/verz2','/webserver/homepage1/verz4');
my $zip = Archive::Zip->new();
while (scalar @verzeichnisse) {
	my $verz = shift @verzeichnisse;
	$zip->addTree($verz,substr($verz,1),undef,COMPRESSION_LEVEL_BEST_COMPRESSION);
	if ($zip->writeToFileNamed("/webserver/homepage1/zipziel/zip.zip") != AZ_OK) {
		die "Kann ZIP '/webserver/homepage1/zipziel' nicht schreiben";
	}
}