#!/bin/perl -w
# First for loop example
# Sums and averages four numbers
for ($k=1; $k<5; $k++) {
	print "Enter a numerical value please:- ";
	$sum += <STDIN> ;
}
print "Total = ",$sum, "\n";
print "Average ", $sum / 4, "\n";;