#!/usr/bin/perl -w
use strict;
use CGI qw (:standard);
use CGI::Carp qw(fatalsToBrowser);
##############################
#
# This simply gets the name
# of the player.
#
# Last-Modified: Nov. 24, 2003 - 15:54 EST
#
##############################
print "Content-type: text/html\n\n";
my $reason = param('why') || "lose";
my $moves = param('moves') || "undefined";
my $time = param('time') || "undefined";
print << "END_OF_HTML";
What's your name?
Please type your name in below, then click the button below.
Please only use the alphabet and digits (a-z, A-Z, 0-9), and 15 characters MAX
END_OF_HTML