#!/usr/bin/perl

use Archive::Zip;
for (@ARGV) {
  print "Unzipping: $_\n" if $debug;
  my $zip = Archive::Zip->new($_) or die "Unable to open $_:  $!";
  for my $m ($zip->members()) {
    print "  Member: ".Dumper($m)."\n" if $debug;
    # $m is an object of class Archive::Zip::ZipFileMember
    print "  ".$m->fileName()."$/";
    $zip->extractMember($m);
  }
}