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