my $x = 1;
BEGIN { $x = 2; }
print $x; # 1

##</code><code>##

BEGIN { my $x = 1; }
print $x; # undefined, failure under strict.pm

##</code><code>##

my $x = 1;
{
    package foo;
    $x = 2;
}
print $x; # 2

##</code><code>##

my $x = 1;
{
    package foo;
    my $x = 2;
}
print $x; # 1