#Read in raw xml, where test.xml is: #testme 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');