use strict;
my $x = 42;

{
	package OtherPackge;
	print $x, "\n";

}