#!/usr/bin/perl -w

use strict;

my $n = 100;
my $sum = 0;

$sum += $_ for 1 .. $n;

print "$sum\n";