Hi
You can use XML::Simple module it will be simple. To parse xml or to create xml you can simply use XML::Simple.
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
my $xml_input = qq{<Body><Foo>Bar</Foo></Body>};
my $xml_simple = XML::Simple->new(KeepRoot => 1, KeyAttr => 1, ForceAr
+ray => 1);
my $result = $xml_simple->XMLin($xml_input);
print "\nParsed xml with output as reference..", Dumper($result);
my $result_xml = $xml_simple->XMLout($result);
print "\nConstructed xml using reference..", $result_xml;