D:\>perl -lwe "$var='qq';{local $var=2;print $var;}print $var"
2
qq