use XML::LibXML; my $file = $ARGV[0]; print $file."\n"; &parse($file); sub parse { my $filename = shift; my $parser = XML::LibXML->new(); my $doc = $parser->parse_file("$filename"); foreach my $node ($doc->findnodes('/root/node')) { print "string value :".$node->string_value."\n"; print "to literal :".$node->to_literal."\n"; print "node name :".$node->nodeName()."\n"; } }