printToFile ist nicht PerlIO-konform,
Das ist ein wichtiger Hinweis, der eine Menge unnützte Sucharbeit erspart.
d.h. du musst deine Ausgaben selber kodieren. Ungetestet: verwende stattdessen die Methode printToFileHandle,
Ulkiger Weise klappt hier nur ein schlichtes $doc->print($h)
Egal:
open my $h, '>:encoding(UTF-8)', $file;
Das war jedenfalls der Knackpunkt- besten Dank.
(Die Idee war und bleibt für einen simplen Job auch ein simples Modul zu verwenden- und nebenbei noch ein paar Basics über Perl & XML zu lernen. Hat gut geklappt, Perfektion war nicht der Anspruch)