Help for this page
#!/usr/bin/perl -w use strict; ... die "Can't read $zfile\n"; } my @file_names = $zipobj->memberNames();
my @file_objs = $zipobj->members(); for my $file_obj (@file_objs) { my $file_txt = $file_obj->contents(); # etc. etc. }