#!/usr/bin/perl

use strict;

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

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

print "Summation = $sum\n";

##</code><code>##

{Z} \\vmware-host\Shared Folders > test
Summation = 1

{Z} \\vmware-host\Shared Folders > test 4
Summation = 10