Select Code to Download

use XML::LibXML 1.93;
use XML::LibXML::PrettyPrint qw/print_xml/;
...
      };

print_xml($doc);

use XML::LibXML 1.93;
use XML::LibXML::PrettyPrint qw/print_xml/;
...
      }
   -> map     { $_->ownerDocument }
   -> foreach { print_xml $_ and exit };