D:\>perl -lwe "my $var='qq';{local $var=2;print $var;}print $var"
Can't localize lexical variable $var at -e line 1.