#!/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);

##</code><code>##

NBKI44V@B000F1FA4379F ~/PerlMonks
$ ./ArchTar.pl /DOS/c/Program\ Files/Java/jdk1.6.0/db/lib/derby.war
$VAR1 = [
          'WEB-INF/',
          'WEB-INF/web.xml'
        ];