use warnings; use strict; { our $foo = 1; } print $foo;