use strict;
use warnings;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
use Data::Dumper;

my $tmp = IO::File->new( 'test1.zip', 'r' );

my $zip = Archive::Zip->new();
  my $zip_err = $zip->readFromFileHandle( $tmp );
  unless ($zip_err == AZ_OK ) {
    die "Archive::Zip read error on filehandle: $zip_err\n";
  }
  
  foreach my $member ($zip->members()) {
    my $fileName = $member->fileName();
    print "fileName = $fileName\n";
    my $content = $member->contents();
    print "contents $fileName = ".Dumper($content);
  }