#!/usr/bin/perl -w
use strict;

use Archive::Zip;

my $zfile  = 'somefile.zip';
my $zipobj = Archive::Zip->new()
   or die "Can't create zip object\n";
if ($error = $zipobj->read($zfile) ) {
   die "Can't read $zfile\n";
}
my @file_names = $zipobj->memberNames();

##</code><code>##

my @file_objs = $zipobj->members();
for my $file_obj (@file_objs) {
   my $file_txt = $file_obj->contents();
   # etc. etc.
}