#!/usr/bin/perl
use warnings;
use strict;

use XML::LibXML;

my $doc = 'XML::LibXML::Document'->createDocument('1.0', 'utf-8');
$doc->setDocumentElement(my $root = $doc->createElement('root'));
$root->appendText("\x0b");
print $doc->toString;