$ perl -wMstrict -e 'my $x; print length $x'
Use of uninitialized value in print at -e line 1.
$ perl -wMstrict -e 'my $x; print length $x if defined $x'
$