perl -wle 'print( my $i ** 2 )'
#Use of uninitialized value $i in exponentiation (**) at -e line 1.
#0