use XML::parser;
...
...
XML::parser->parsetag();