our $var = 'a';
sub f { print "$var\n"; }
{ local $var = 'x'; f(); }  # x
print "$var\n";             # a