use strict;
use warnings;
use feature 'say';

use XML::LibXML;

my $xml = XML::LibXML->createDocument();
my $r   = $xml->createElement('root');
$xml->setDocumentElement($r);
$r->addChild($xml->createTextNode('<&'));
say $xml->toString;

##</code><code>##

create root ;
insert text '<&' into /root ;
ls . ;