Select Code to Download

use strict;
use warnings;
...
}

print $root->as_XML ();

<author-group><xxx><auth> </auth><auth> </auth><auth> </auth></xxx>
  
<aff> </aff> <aff> </aff>
<corres id="cor1"> </corres>
</author-group>