Select Code to Download

#!/perl/bin/perl -w

...
$twig->print( \*XML_OUT);

close XML_OUT;

<root>
  <child>
    <children>foo_bar</children>
  </child>
</root>