#packen
$zip_daten = '';
use IO::Compress::Zip qw(zip $ZipError);
$status = zip \@daten => \@zip_daten or die "zip schlug fehl: $ZipError\n";