our $foo; $foo = 1; BEGIN {...}