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