Select Code to Download

use strict;
{
...
}

print "outer: $y\n";

use strict;

...
}

print "outer: $main::y\n";