use strict;
use LWP::Simple;
use Archive::Zip;

my $zip = Archive::Zip->new( "/tmp/foobarbaz/epgzip" );
my @xmlfile = $zip->membersMatching('.*\.xml');
print @xmlfile;


----------------

Running the Script:

laga@host:> perl test
Archive::Zip::ZipFileMember=HASH(0x84630bc)