#!perl -w
use strict;
use XML::TokeParser;
my $t;
my $p=XML::TokeParser->new('tokeparser.xml',Noempty=>1) or die $!;
while ($p->get_tag('title') && $p->get_text('/title') ne 'METHODS') {
;
}
$p->get_tag('list');
while (($t=$p->get_tag()->[0]) ne '/list') {
if ($t eq 'item') {
$p->get_tag('itemtext');
print $p->get_text('/itemtext'),"\n";
$p->get_tag('/item');
}
else {
$p->get_tag('/list');
}
}