#!/usr/bin/perl

use strict;

my $end = $ARGV[0] || 1;
my $sum = 0;

for (1..$end) {
    $sum += $_
}

print "Summation = $sum\n";