Select Code to Download

use strict;
{ my $x; $x = 1; print "\$x=$x\n"; }
...
{ our $y; $y +=1; print "\$y=$y\n"; }
# and see the globals in the main namespace
print "\$main::x=$main::x, \$main::y=$main::y\n";