#Datei zippen
use Archive::Zip qw(:ERROR_CODES:CONSTANTS);
$zip = Archive::Zip->new();
$DIR = "/root/Documents/Socket-Programmierung_2/Datei/Test";
opendir(DIR,$DIR) or die "Kann aktuelles Verzeichnis nicht oeffnen: $!\n";
@Name = readdir(DIR) or die "Kann Verzeichnis nicht lesen:$!\n";

foreach $fileName (@Name)
{
$zip->addFile($fileName);
}
$zip->writeToFileNamed("result.zip")

#gezippte Datei in Array einlesen 
open(DATEI, "<", "result.zip") or die $!;
binmode DATEI;
while(read(DATEI,$block,1024)) 
{
push(@daten,$block);
}
@daten = <DATEI>;
close(DATEI);