my $parser = XML::Parser->new(ErrorContext => 2, Style => "Tree");
my $xso = XML::SimpleObject->new( $parser->parse($content) ) or die "could not parse!";
check_tag($xso);
...