use strict;
use warnings;

package Foo;
my $bar;           # declares bar as lexical for rest of lexical scope
$bar = 20;

package Bar;
print $bar;         # prints 20