Select Code to Download

<?xml version="1.0" encoding="UTF-8"?>
<O:ABC xmlns:O="ONE:" 
...
    </O:QWERTY>
  </T:ZZZ>
</O:ABC>

#!/usr/bin/perl -w
use strict;
...
    $root->addNewChild($TWO_ns, 'UIOP');
    return $root;
}

    my $root = shift or die;
    $root->addNewChild(<namespace>, <name>);
    return $root;

sub appendOQ {
    my $root = shift or die;
...
    &appendTU($this);
    return $root;
}

<?xml version="1.0" encoding="UTF-8"?>
<O:ABC xmlns:O="ONE:" xmlns:T="two:IS:a_namEsp">
...
    <T:UIOP/>
  </O:QWERTY>
</O:ABC>

# Build the document tree
my $this = &appendOZ($root);
$this = &appendTZ($this);
$this = &appendOQ($this);
print $DOC->toString(1);

    # Make this node
    my $this = $root->addNewChild(<namesace>, <name>);
    # Append sub tree
    $this->append(&buildSubTree)
    return $this;