my @ch = $root->getElementsByTagName("child");

my $type = $ch[0]->nodeType;
my $val = $ch[0]->firstChild->nodeValue;
my $type2 = ($ch[0]->childNodes)[1]->nodeType;
my $val2 = ($ch[0]->childNodes)[1]->nodeValue;
print $type."\n";
print $val."\n";
print $type2."\n";
print $val2."\n";
print "val Length = ".length($val)."\n";