Select Code to Download

use strict;
use XML::Simple;
...
# it's the 'noattr' option that is important here
my $xml = $xs->XMLout(\%DATA, noattr => 1);
print $xml;

<opt>
  <link2>
...
    <name>Future truth oracle</name>
  </link2>
</opt>