#!/usr/bin/perl
# File: useTemp

use Temp;

tie $temp, 'Temp';
print "Enter a temperature between -100 and 150 (q to quit): ";
while ($temp = <STDIN>)
{
 exit() if ($temp =~ /^q|Q/);
 print "$temp\n\n";
 print "Enter a temperature between -100 and 150 (q to quit): ";
} 


