Select Code to Download

#!/usr/bin/perl

...
foreach my $file ( ' to_concat_1.xml', 'to_concat_2.xml')
  { print XML::Twig->new( keep_spaces =>1, comments => 'process')->par
+sefile( $file)->root->xml_string; }
print "</foo>\n";

#!/usr/bin/perl

...
  }

$result_twig->print;