Select Code to Download

use XML::LibXML;
my $dom = XML::LibXML->new(qw/ recover 2 /)->load_xml(  IO => $in );
...
          $key->nodePath, "\n",
          $key->textValue, "###\n";
}