my $xml_obj = XML::Simple->new(Keeproot => 1);