timon:/proj/work/rs/projects/runproc # perl
use strict;
use warnings;
my $stuff;
BEGIN { $stuff = 1; }
print "$stuff\n";
1
timon:/proj/work/rs/projects/runproc # perl
use strict;
use warnings;
my $stuff = undef;
BEGIN { $stuff = 1; }
print "$stuff\n";
Use of uninitialized value in concatenation (.) or string at - line 5.

timon:/proj/work/rs/projects/runproc #