use strict;
use XML::Twig;
use XML::XPath;
use XML::XPath::XMLParser;
my $xp = XML::XPath->new(filename => '1.xml');

my $nodeset = $xp->find('title');

my $size = $nodeset->size;

print "$size\n";

foreach my $node ($nodeset->get_nodelist)
{
	print "found\n\n",XML::XPath::XMLParser::as_string($node),"\n\n";

}