Select Code to Download

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

...
print $xs1->XMLout($doc,
             noattr => 1,
             xmldecl => '<?xml version="1.0">');

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