use XML::Twig;
my $twig=XML::Twig->new(pretty_print=> 'indented');
$twig->parsefile( 'sample.xml');
$data = $twig-print;
open OUT, ">" . "pretty.xml";
print OUT $data;
close OUT;
print "\nover\n";