# ex_04-1

# Learning Perl on Win32 Systems, Exercise 4.1



print "What temperature is it? ";

chomp($temperature = <STDIN>);

if ($temperature > 72) {

  print "Too hot!\n";

} else {

  print "Too cold!\n";

}