Select Code to Download

use strict;
use warnings;
...
$writer->endTag();
close $inA;
close $inB;

<doc>
<elem>A</elem>
<elem>BBBBB</elem>
<elem>CCCCCCCCCC</elem>
</doc>