The easiest way, is probably to use XML::Parser

The easiest way is probably to use an XML tool, but probably not XML::Parser, which is too low-level and quirky to be really considered easy to use.

In this case you could just output the xml without bothering about the formating and then use a pretty-printer, like xml_pp or Tidy.