#Read in raw xml, where test.xml is:
#<test><level1><level2><level3>testme</level3></level2></level1></test>
my $xs = new XML::Simple;
my $ref = $xs->XMLin("test.xml");

#Use dumper to show the data structure created by XMLin
print Dumper($ref);

#Complete the circle and output the xml
print $xs->XMLout($ref,NoAttr => 1,RootName=>'test');

##</code><code>##

<test>
	<level1>
		<level2>
			<level3>testme</level3>
		</level2>
	</level1>
</test>

##</code><code>##

<test>
	<level1>
		<name>level2</name>
		<level3>testme</level3>
	</level1>
</test>

##</code><code>##

 $VAR1 = { 'level1' => { 'level2' => { 'level3' => 'testme' } } }