use strict;
use warnings;
use XML::Twig;

my $xml = new XML::Twig();
$xml->parsefile('test.xml');

open OUT, ">", "test.new.xml";
$xml->print(\*OUT);
close OUT;