use Parse::RecDescent qw( );
...
open(local *Parse::RecDescent::ERROR, '>', \my $error);
my $p = Parse::RecDescent->new($grammar) or die "Invalid grammar";
my $output = $p->startrule($str) or die $ParseError;