#!/usr/bin/perl -w

use strict;

print "Input a number: ";
chomp(my $num = <STDIN>);
my $sum;

while ($num) {
	$sum += $num--;
	print "Running total is $sum\n";
}