use XML::Simple;
use Data::Dumper;
$xs = new XML::Simple;
my $ref = $xs->XMLin("data.xml");
my $xml = $xs->XMLout($ref);