Select Code to Download

our $x;
CODE INVOLVING OUTER $x
...
    local $x;
    CODE INVOLVING INNER $x
}

my $x;
CODE INVOLVING OUTER $x
...
    my $x;
    CODE INVOLVING INNER $x
}

our $x; my $y;
sub twiddle { $x = $y = 'twiddled' }
...
    twiddle;
    say $x, ', ', $y;
}