Select Code to Download

use XML::Writer;
use IO::File;
...
$xml->endTag('root');
$xml->end;
print $doc;

<root>
  <elem attr="&amp;reg;" />
</root>

<root>
  <elem attr="&reg;" />
</root>