#!/usr/bin/perl -w
print "What is the outside temperature? ";
chomp($temp = <STDIN>);
if($temp > 72) { print "Too Hot\n"}
else {print "Too Cold\n"}