Select Code to Download

use strict;
use warnings;
...

Parse::RecDescent->PreCompile($szGrammar, 'MyParser')
   or die("Bad Grammar\n");

use strict;
use warnings;
...
$hParser->test($szCode)
   or die("Bad code\n");
$hParser->DumpResult();