use strict;
use XML::Parser;


my $p1 = new XML::Parser(Style => 'Subs');
$p1->parse('<foo id="me">Hello World</foo>');

sub foo {
	my ($expat, $tag, %a) = @_;
	print "entering foo\n";
	&i_am_a_subroutine_that_does_not_exist();
}

sub foo_ {
	my ($expat, $tag, %a) = @_;
	print "leaving foo\n";
}