my $p = Parse::RecDescent->new( <<'END_GRAMMAR' );

{
   use strict;
   use warnings;
}

parse: ...