use 5.010;
our $foo = 42;
sub bar {
  say "start bar: ", $foo;
  local $foo = 1;
  say "end bar: ", $foo;
}
say "before bar: ", $foo;
bar();
say "after bar: ", $foo;