Select Code to Download

my $str = $ARGV[0];
my $xp = XML::XPath->new(xml => "$str");
...
foreach my $node ($nodeset->get_nodelist) 
{my $tag=XML::XPath::XMLParser::as_string($node);
print "$tag\n";}

<xml>
<h1><title>TH&Eacute;MATIC INTRODUCTION</title>
...
<h2><title>Sub level title</title>
<p>Para Text</p></h2>
</h1></xml>

undefined entity at line 2, column 13, byte 19:
<xml>
<h1><title>TH&Eacute;MATIC INTRODUCTION</title>
...
<p>Para goes here</p>
<h2><title>Sub level title</title>
 at c:/Perl/site/lib/XML/Parser.pm line 187

use XML::Parser;
use XML::Parser::Expat;
use XML::Twig;
...
   my $tag=XML::XPath::XMLParser::as_string($node);
print "$tag\n";
}