Select Code to Download

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

my $data = $p->parse($text)
or die("Bad data\n");