#!/usr/bin/perl

use strict;
use warnings;

use XML::LibXML;

my $e = XML::LibXML::Element->new("element");

$e->appendTextChild("child", "abcd\x{f6}efgh");