#!/usr/bin/perl -w
#
# 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)
{
print "status: 400 Bad Request You Bad Person\n";
print "content-type: text/html\n";
print "\n";
print "\n";
print "
\n";
print " Error!\n";
print "\n";
print "\n";
print " Weird! You should not be here.\n";
print "\n";
print "\n";
}
else {
if ($number < 100)
{
$small = "small";
}
else
{
$small = "large";
}
$even = "odd";
$even = "even" if ($number % 2 == 0);
#print "status: 200 OK\n";
#print "content-type: text/html\n";
print "\n";
print "\n";
print "\n";
print " Answers About $number\n";
print "\n";
print "\n";
print " $number
\n";
print " Is $even
\n";
print " Is $small
\n";
print "\n";
print "\n";
}