#!/usr/bin/perl -w
use strict;

my $sum=0;
foreach my $num (1..1000)
{
   if ($num % 2)       #odd
   {
      $sum += $num
   }
   else                #even
   {
      $sum -= $num;
   }
}

print $sum;