Help for this page
my $x; { my $x; ... }
{ my $x; sub f { ++$x } } { my $x; sub g { ++$x } }
sub f { my $x; ... f(); ... }