Select Code to Download

#!/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.
}