use strict; { use vars qw/ $foo /; $foo = "Ovid"; } print $foo;