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