$ perl -wE 'my $x; say($x - 1)'
Use of uninitialized value $x in subtraction (-) at -e line 1.
-1