http://blog.namran.net/2011/01/22/xml-beautify-using-perl-xmlwriter/
##</code><code>##

  my $writer = new XML::Writer (
    OUTPUT => \$xml, DATA_MODE => 1,DATA_INDENT => 2
  );