#!/usr/bin/perl -w

use strict;

my $n = 100;
my $sum = $n * ( $n + 1 ) / 2;

print "$sum\n";