$parser = XML::TokeParser->new("somefile.xml");
if ( $parser->get_tag('footer')) {
                                   # do stuff
					}