Select Code to Download

use XML::SAX::ExpatXS;
use WDSTreeHandler;
...
my $handler = WDSTreeHandler->new;
my $parser = XML::SAX::ExpatXS->new(Handler => $handler);
$parser->parse_string($tree);

package WDSTreeHandler;
use base qw(XML::SAX::Base);
...
{
}
1;