Select Code to Download

use strict;
use warnings;
...
use Data::Dump;
dd($data);
print(XMLout($data, @opts));

{ foo => [{ bar => ["blah&blah"] }] }
<foo>
  <bar>blah&amp;blah</bar>
</foo>