my $zip = Archive::Zip->new();
if($zip->read($file) == AZ_OK) {
   my @members = $zip->memberNames();
   foreach my $element(@members) {
      $zip->extractMember($element,);
   }
}else {
   die "failed to open $file";
}