my $sum = 0.5*(1 + 999)*( (999-1)/2 + 1 ) - 0.5*(2 + 1000)*( (1000-2)/2 + 1 );
print $sum;