#! /usr/bin/perl -w
use strict;
use CGI qw(:standard);

my $city = param('city');
my $date = param('date');
my $max_temp = param('max_temp');

print header( -type=>'text/plain' ),
  "The hottest it got in $city on $date was $max_temp F.";