Select Code to Download

use strict;
use XML::Simple;
...
}
  
print $xs->XMLout($data);

use strict;
use XML::Simple;
...
  
print XMLout($data, keyattr => {field => 'name'}, rootname => 'data');