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

use XML::LibXML;

my @docs = (
            'XML::LibXML::Document'->createDocument('1.0'),
            'XML::LibXML::Document'->createDocument('1.0', 'utf-8'),
           );

for my $doc (@docs) {
    $doc->setDocumentElement(my $root = $doc->createElement('root'));
    $root->appendText("\x0b");
}

for my $doc (@docs) {
    print ".\n";
    'XML::LibXML'->load_xml(string => $doc->toString);
}