Select Code to Download

<?xml version="1.0" encoding="UTF-8"?>
<customer>
...
  <surname>Wrigley</surname>
  <surname>Go</surname>
</customer>

use strict;
...

XMLout($Input, rootname => 'customer',    XMLDECL => $Decl, OutputFile
+ => $Input_File);