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