Select Code to Download

use 5.010;
use Scope::Upper qw(localize UP);
...
say "before bar: ", $foo;
bar();
say "after bar: ", $foo;

use 5.010;
our $foo = 42;
...
say "before bar: ", $foo;
bar();
say "after bar: ", $foo;