use strict;
use warnings;

use feature qw(say);

use XML::LibXML;

my $doc = XML::LibXML::Document->new('1.0', 'utf-8');

my $root = $doc->createElement("joy");
my $t1 = XML::LibXML::Text->new( q{foo} );
my $t2 = XML::LibXML::Text->new( q{bar} );

$root->appendChild($t1);
$root->appendChild($t2);

$doc->setDocumentElement($root); 

say $doc;