#!/usr/bin/perl

use strict;

use Archive::Zip;

foreach my $zipfnm (@ARGV)
{
     if (-e $zipfnm)
     {
          # ZIP file exists.  Proceed.
          my $zipobj = Archive::Zip->new($zipfnm);          # ZIP object pointer
          my @mbrhan = $zipobj->members();
          foreach my $mbrhan (@mbrhan)
          {
               # Next member found in ZIP file
               my $mbrfnm = $mbrhan->fileName();
               my $mbrfsz = $mbrhan->uncompressedSize();
               print "$mbrfnm is $mbrfsz bytes\n";
          }
     }
}

exit;

__END__