M01169@pc851102:perldoc $ perl -v

This is perl, v5.8.0 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2002, Larry Wall

Binary build 804 provided by ActiveState Corp. http://www.ActiveState.com
Built 23:15:13 Dec  1 2002


Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.

M01169@pc851102:perldoc $

This is perl, v5.8.6 built for MSWin32-x86-multi-thread

>perl
use strict;
use warnings;
my $stuff = undef;
BEGIN { $stuff = 1; }
print "$stuff\n";
^Z
1

>perl -MO=Deparse
use strict;
use warnings;
my $stuff = undef;
BEGIN { $stuff = 1; }
print "$stuff\n";
^Z
use warnings;
use strict 'refs';
my $stuff;
sub BEGIN {
    $stuff = 1;
}
print "$stuff\n";
- syntax OK

>perl
use strict;
use warnings;
my $stuff;
BEGIN { $stuff = 1; }
print "$stuff\n";
^Z
1

my $uhu;

my $uhu = undef;

my $uhu;

my $uhu = undef;

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 #