package foo;
my $x = 3;
package bar;
print $x;