#!/bin/perl -w
# Script ex9.pl

#Ask for the values and remove newlines.
print "Enter lower temperature please: ";
chop ($ltemp = <STDIN>);

print "Enter higher temperature please: ";
chop ($htemp = <STDIN>);

#Calculate increment
$scaleinc = ($htemp - $ltemp) / 11;

#Print a heading for the table
print "Deg F   Deg C\n";
print "-----   -----\n";

for ($k=$ltemp; $k<($htemp + $scaleinc); $k += $scaleinc) {
	$ctemp = ($k-32) * 5/9;
	printf("%-7.3f %-7.3f\n",$k, $ctemp);
}