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

##</code><code>##

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