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;