Select Code to Download

    open( *Parse::RecDescent::ERROR, '>', \(my $parse_error) )
    or croak("Error: unable to redirect SDTERR.");
...

    my $parser = Parse::RecDescent->new($grammar) or die("Bad grammar!
+");

use strict;

...
}

print parse('start: /foo/ | <error>', 'fo'), "\n";