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