$ perl -Mstrict -le '{ our $foo = "foo"; print $foo; } print $main::foo'
foo
foo