Select Code to Download

use XML::Twig;

...
                XML::Twig::Elt->new(data => $clink)
                );
$twig->print;

<data>
  <record id="B0001">
...
    <url target="_blank">http://www.perlmonks.org</url>
  </record>
</data>