#!perl

use strict;      # stop typos and other errors causing grief
use warnings;    # stop CGI newbie making silly errors
use diagnostics; # explain warnings to CGI newbie

use CGI;
my $q = new CGI;

print $q->header;

$q->param('calore') ||= '';  # ensure param initialized before using eq

if ( $q->param('calore') eq 'red' ) {
     print '<h3>You said red</h3>';
} else {
     print '<h3>You did not say red</h3>';
}