[Mario Garcia]

¿De qué forma puedo generar un xml formateado desde un dom en perl?

[Alberto Hernandez]

Prueba con toString:

print $doc->toString(1);

[Invitado_Jonathan A_*]

Con toString lo puedes hacer:

my @archivo = split /\n/, $doc->toString(1);
shift @archivo; foreach (@archivo) { print "$_\n"; }

[Mario Garcia]

Gracias con ese metodo me funciono