my $twig = new XML::Twig(
		twig_handlers => {
			_all_ => $self->proc_list,
		},
	);

sub proc_list {
        my $self = shift;
	my $ele = shift;
	return if($ele->name eq '#PCDATA');
	my $xpath = $ele->xpath;
	print $xpath,"\n";
}