#!/bin/perl -w
# Script ex5.pl
for ($k=1; $k<5; $k++) {
	print "Enter a temperature value in degrees C please:- ";
	$sum += <STDIN> ;
}
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";