Something like this:
#!/usr/bin/perl
use strict;
use warnings;
use Archive::Zip;
my $archive_name = "archive.zip";
my $archive_extract = Archive::Zip -> new ( $archive_name );
foreach my $member ( $archive_extract -> members() )
{
print $member -> fileName(),"\n";
}
You will, of course, need to supply your own directory search. I would recommend looking at File::Find
for that