Select Code to Download

$a = 1;
{
...
  print "$a\n";
}
print "$a\n";

2
1

my $grammar = q{
  {our @a, @as}
...
    print @a;
  }
}