my $sum = 0;
my $sign = 0;
for my $i (1 .. 1000) {
    $sum += ($sign++ % 2 ? -1 : 1) * $i;
}
print $sum;