$x = 'pkg';
my $x;
BEGIN { $x = 'lex' }
print "$::x $x\n"; #prints pkg lex