#!/usr/bin/perl -w
use strict;
use warnings;
use Archive::Zip;
use Data::Dumper;
my $INFName = shift or die "missing filename!";
my $arch = Archive::Zip->new($INFName);
die "Can't find/read/parse $INFName!" if !defined $arch;
my @t = $arch->memberNames;
print Dumper(\@t);