#!/bin/perl -w

#########################################################################
#                                                                       #
#  This example displays the text of all method elements                #
#  It uses the next_elt method                                          #
#                                                                       #
#########################################################################

use strict;
use XML::Twig;

my $twig= new XML::Twig();

$twig->parsefile( "html_plus.xml");         # parse the file

my $root= $twig->root;

my $method= $root;                          # loop through the document
while( $method= $method->next_elt( $root, 'method'))
     { print "method: " . $method->text . "\n"; }

