xml sketch

gistfile1.txt

use strict; use warnings;

use XML::LibXML;
use XML::LibXML::XPathContext;

my $xml = <<'__EOI__';
<par xmlns:bar="www.bar.com"><bar:foo/></par>
__EOI__

my $parser = XML::LibXML->new();
my $doc = $parser->parse_string($xml);

my $node = $doc->lastChild->firstChild;
$node->unbindNode;
for my $ns ($doc->lastChild->getNamespaces) {
        $node->addChild($ns);
}
print $node->serialize(1);