use strict;
use warnings;
my $stuff = undef;

BEGIN { $stuff = 1; }
print "$stuff\n";
_ _ END_ _
Use of uninitialized value in concatenation (.) or string at test.pl line 6.