sub init_parse {
    my $self = shift;
    my $root = $self->{'DOC'}->getDocumentElement();
    print "$root\n";
    &traverse($root);

    }

sub traverse {
    my $node = @_;
    print "DEBUG: $node\n";

}

##</code><code>##

XML::LibXML::Element=SCALAR(0x1e104c)
DEBUG: 1