#!/usr/bin/perl -w
use strict;
use warnings;
use Archive::Zip qw( :ERROR_CODES );
my $zipfile = "your_zip.zip";

my $zip = Archive::Zip->new();
   unless ( $zip->read( "$zipfile" ) == AZ_OK ) {
       die 'read error';
   }

my @files = $zip->memberNames();   
print $_, "\n" for @files;