#!/bin/perl -w
# Converts Centigrade to degrees F
# Uses a while to allow multiple conversions
# until user enters a value of 9999
$ctemp = 1;
while ($ctemp != 9999) {
	print "Please enter a temperature in degrees C: ";
	$ctemp = <STDIN>;
	print "That converts to ",(($ctemp *9)/5 + 32), " degrees F\n";
}
print "End of script reached \n";