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";

}


##</code><code>##

<?xml version="1.0"?>
<!DOCTYPE stats SYSTEM "stats.dtd">
<stats><title id="1">testing<name><snm>Houston</snm>, <fnm>Allan</fnm></name><g>69</g><ppg>20.1</ppg><rpg>3.4</rpg><apg>2.8</apg><blk>14</blk></title>
<title><name>Sprewell, Latrell</name><g>69</g><ppg>19.2</ppg><rpg>4.5</rpg><apg>4.0</apg><blk>15</blk></title>
<title><name>Ewing, Patrick</name><g>49</g><player><name>aaa</name></player><ppg>14.6</ppg><rpg>10.0</rpg><apg>1.0</apg><blk>68</blk></title>
<title><name1>Raja m</name1><g>49</g><player><name>aaa</name></player><ppg>14.6</ppg><rpg>10.0</rpg><apg>1.0</apg><blk>68</blk></title>
</stats>