$ perl -Mstrict -w -le 'print my $x'
Use of uninitialized value in print at -e line 1.