C:\test>perl -wE"my $x; say $x; { no warnings 'uninitialized'; say $x }"
Use of uninitialized value $x in say at -e line 1.