Help for this page
ARRAY(0x94b3910)
my $B = $doc->selectNodes("A/B")->[$cpt]->nodeValue(); my $D = $doc->selectNodes("A/C/D")->[$cpt]->nodeValue(); print "$B / $D \n";