$ perl -Mstrict -E 'use if 1==1, warnings => (); my $x; say $x+1'
Use of uninitialized value $x in addition (+) at -e line 1.
1