Shell Programming and Scripting

my $parser = XML::LibXML->new();
my $xmldoc = $parser->parse_file ("file.xml") || die("Could not parse config xml file\n");
my $root = $xmldoc->getDocumentElement()|| die("Could not get Document Element \n");
$id="121313131"; # For example
proceed($root,$id);
sub proceed {
my($node,$id)= @_;
#$node->nodeType is returning "1"
if ($node->nodeType == ELEMENT_NODE) 
	{
		print "\n -----------------\n";
		#get all the child nodes
	}
		
}

#cat file.xml
<JUNKS>
	<JUNK>
		<NAME>AAA</NAME>
		<AGE>12</AGE>
	<JUNK>
		<ADDR>Q1WQW</ADDR>
		<NUM>1212</NUM>
	</JUNK>
  </JUNK>
</JUNKS>

Output:
<JUNKS>
	<JUNK>
	 <NAME>AAA</NAME>
	 <AGE>12</AGE>
	 <ADDR>Q1WQW</ADDR>
	 <NUM>1212</NUM>
</JUNK>
</JUNKS>

http://search.cpan.org/~pajas/XML-LibXML-1.70/LibXML.pod#EXPORTS

and also view XML::SimpleObject  module.