Select Code to Download

my $ParseError;

...

my $p = Parse::RecDescent->new($grammar) or die "Invalid grammar";
my $output = $p->startrule($str) or die $ParseError;

    open(STDERR, '>', '/tmp/error') or die $!;