A Book -- $parser->setHandlers(Start => \&start_handler ); sub start_handler() { my ($p, $elmt ) = @_; if ( $elmt eq 'Item' ) { Ques - I want to get 'A Book' here. I want to call a new procedure with param(elmt, A book ) } } #### $parser->setHandlers(Entity => \&entity_handler)