use strict; { our $foo; $foo = "Ovid"; } print $main::foo;