C:\test>perl -wE"print (1-1/2000)**$i;"
print (...) interpreted as function at -e line 1.
Useless use of exponentiation (**) in void context at -e line 1.