Select Code to Download

use strict; 
use warnings; 
...
defined $parser->startrule($text) 
    or die "Can't match text";

    startrule: <rulevar: $lbrace_count>

    startrule: lbrace(2)  { $lbrace = length $item[1] }
               'hello' 
               rbrace(2)

    startrule: <rulevar: $lbrace_count>

...
    lbrace: / [{] /xms
    rbrace: / [}] /xms

Unknown starting rule (Parse::RecDescent::namespace000001::rbrace(18))
+ called
 at prd1.pl line 39.

    startrule: lbrace(2)  
               'hello' 
...
--output:--
Unknown starting rule (Parse::RecDescent::namespace000001::rbrace(2)) 
+called
 at prd1.pl line 39.

use strict; 
use warnings; 
...

defined $parser->startrule($text) 
    or die "Can't match text";