Select Code to Download

<book_1>title_1</book1>
<book_2>title_2</book1>

use XML::Simple;

...

my $xml = XMLout(\%xml_hash, KeyAttr => []);
print $xml;

<opt>
    <book_1>title_1</book1>
    <book_2>title_2</book1>
</opt>