my $TMP = $doc->selectNodes("A/B");
print "TMP: <", ref($TMP), ">";
$TMP = $doc->selectNodes("A/C/D");
print "TMP2: <", ref($TMP), ">";