$i = 2;
$j = (1-1/2000)**$i;
print $j;

##</code><code>##

0.99900025

##</code><code>##

$i = 2;
print 0.9995**$i;

##</code><code>##

0.99900025

##</code><code>##

# function mode
print (your code here);

##</code><code>##

# list mode
print arg1, arg2, etc; # and/or the . operator