#this line should be on top
use XML::XPath;
#and this line has been corrected:
#my $xmlfile = XML::XPath->new(ioerf => $xml[0]->readFileHandle );

my $xmlfile = XML::XPath->new(ioref => $xml[0]->readFileHandle );

##</code><code>##

not well-formed (invalid token) at line 1, column 24, byte 24:
Archive::Zip::MemberRead=HASH(0x2062784)
=======================^
 at C:/Perl/lib/XML/Parser.pm line 187