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