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