#!/usr/bin/perl
use warnings;
use strict;
use XML::LibXML;

my $in = "testcd.xml";

my $parser = XML::LibXML->new;
my $doc = $parser->parse_file( $in ) or die("Cannot parse input file");

my $root = $doc->documentElement();

#my $val = ($root->getElementsByTagName("child"))[0]->nodeValue;
my @ch = $root->getElementsByTagName("child");

my $val = $ch[0]->firstChild->nodeType;
print $val;

my $cdata =
XML::LibXML::CDATASection->new(($root->getElementsByTagName("child"))[0]->nodeV$

$cdata = $cdata->data;

print $cdata;

exit 0;