If you are wanting to parse the output of what zip gives (and yes the others have touched on this already) you could try:

my $tmpfile = POSIX::tmpnam();

system("unzip -l $filename 2>$tmpfile");

open(OUTPUT, "$tmpfile") || die "Cant open $tmpfile file, $!\n";
while(<OUTPUT>)
{
 ... do something here ...
}
close(OUTPUT);
[download]

- oakley
Embracing insanity - one twitch at a time >:)