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