use XML::Generator qw( );
my $gen = XML::Generator->new(
   conformance => 'strict',
   encoding    => 'UTF-8',
);
print $gen->xml(
   $gen->doc('...')
);

##</code><code>##

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<doc>...</doc>