use strict; use warnings;
use vars qw($Global1);
our $Global2 = 400; # ab perl5.6
...