#!/usr/local/bin/perl -w use CGI qw(:cgi); # Include CGI functions use CGI::Carp qw(fatalsToBrowser); # Send error messages to browser # # First take the value entered into the text field and put it into a variable. # $colour = param("colour"); # # Then generate an HTML page which prints the contents of the variable. # print < Colour

$colour

END_of_HTML