use XML::DOM;
my $doc = XML::DOM::Document->new;
my $decl = $doc->createXMLDecl("1.0", "utf-8");
$doc->setXMLDecl($decl);
$tag = $doc->createElement("word");
$tag->addText("IssuéTést");
$doc->appendChild($tag);
print $doc->toString();