D:\dev\PM>perl -le"$::x='outer'; $c=sub{print $::x}; { local $::x='inner'; $c->() } $c->()"
inner
outer