use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
my @verzeichnisse = ('/root/homepage1/verz2','/root/homepage1/verz4');
my $zip = Archive::Zip->new();
while (scalar @verzeichnisse) {
	my $verz = shift @verzeichnisse;
	$zip->addTree($verz,$verz,undef,COMPRESSION_LEVEL_BEST_COMPRESSION);
	if ($zip->writeToFileNamed('/zielpfad/datei.zip') != AZ_OK) {
		die "Kann ZIP '/zielpfad/datei.zip' nicht schreiben";
	}
}