#!/bin/perl -w
# Script ex6.pl
print "How many temperatures? : ";
$nums = <STDIN>;

for ($k=1; $k<$nums+1; $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/$nums) *9)/5 + 32), " degrees F\n";