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