#! /usr/bin/perl
use XML::Simple ;

my $doc->[0] = { a => 'a', b => 'b' } ;
print $xs1->XMLout($doc,
             noattr => 1,
             xmldecl => '<?xml version="1.0">');

##</code><code>##

<?xml version="1.0">
<opt>
  <anon>
    <a>a</a>
    <b>b</b>
  </anon>
</opt>