use strict;

use Archive::Zip qw(:CONSTANTS :ERROR_CODES);
use File::Temp;

my $tmp = $ENV{'TEMP'}.'/zip/extractMember';

my $zip = Archive::Zip->new();
if ($zip->read('test.zip') != AZ_OK)
{
  die 'Einlesen klappt nicht.';
}

foreach my $member ($zip->members())
{
  print($member->fileName()."\n");
  $member->extractToFileNamed(File::Temp::tempnam($tmp, 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'));
  $member->extractToFileNamed(File::Temp::tempnam($tmp, 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'));
}