#!/bin/perl -w
#  if inside a loop - loopy.pl
# Sums and averages four numbers
for ($k=1; $k<5; $k++) {
	print "Enter a numerical value (other than 0) please:- ";
	$num = <STDIN> ;
	if ($num == 0)  {
		print "NOT a ZERO - try again!\n";
		redo;
	}
	$sum += $num;
}
print "Total = ",$sum, "\n";
print "Average ", $sum / 4, "\n";;