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