#!/bin/perl -w
# Script ex7.pl
for ($k=1; $k<5; $k++) {
	print "Enter a temperature value in degrees C please:- ";
	$num = <STDIN> ;
	if ($num =~ /^[-0-9]*$/) {
		if ($num < -30 || $num > 200)  {
			print "Number is out of range\n";
			redo;
		} else  {
			$sum += $num;
		}
	} else {
		print "Not a number - try again\n";
		redo;
	}
}
print "Total = ",$sum, "\n";
print "Average degrees C ", $sum / 4, "\n";;
print "That converts to an average ",((($sum/4) *9)/5 + 32), " degrees F\n";