use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
my $z = new IO::Uncompress::Unzip $in or die "unzip failed: $UnzipError\n";
my $op = [];
unzip $in => $op;