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

    }

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

}