You can use Archive::Zip's member manipulation to obtain a list of files:

use strict;
use warnings;
use Archive::Zip;

my $zippath = 'wibble.zip';
my $zip = Archive::Zip->new ();

$zip->read ($zippath);
my @members = $zip->members();

print $_->fileName(), "\n" for @members;
[download]