# ex_04-1 # Learning Perl on Win32 Systems, Exercise 4.1 print "What temperature is it? "; chomp($temperature = ); if ($temperature > 72) { print "Too hot!\n"; } else { print "Too cold!\n"; }