use Parse::RecDescent;

my $grammar = <<'__EOI__';
parse: <error:FOO!>
__EOI__

Parse::RecDescent->Precompile($grammar, "grammar")
or die("Bad grammar\n");