$ perl -e " use strict; use warnings;  { our $foo = 1 } { our $bar } print 666"
666