#!/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();