$ perl -lwe 'my $var="qq";{my $var=2;print $var;}print $var'
2
qq