#!/usr/bin/perl -w
#
# Print the required CGI header
#
print "status: 200 OK\n";
print "content-type: text/html\n";
print "\n";
#
# Get the data from the form ... if there is data
#
use CGI;
$query = new CGI;
$number = $query->param("number");
#
# If there is no data, print the form.
# If there is data, print the answer.
#
if (length($number) < 1)
{
$program_name = substr($0, rindex($0, "/")+1, 999);
print "\n";
print " A Form About Numbers\n";
print "\n";
print "\n";
print " \n";
print "\n";
}
else {
if ($number < 100)
{
$small = "small";
}
else
{
$small = "large";
}
$even = "odd";
$even = "even" if ($number % 2 == 0);
print "\n";
print " Answers About $number\n";
print "\n";
print "\n";
print " $number
\n";
print " Is $even
\n";
print " Is $small
\n";
print "\n";
}