$ perl -Mstrict -E 'BEGIN { require warnings if 1==1 } my $x; say $x+1'
1