#entpacken
$unzip_daten = '';
use IO::Uncompress::Unzip qw(unzip $UnzipError);
$status = unzip \@zip_daten => \@unzip_daten or die "unzip schlug fehl: $UnzipError\n";