#!/usr/bin/perl
#######################
# A two player tic-tac-toe game. Each square is an image that will change to
# display an X or O when clicked on by the appropriate player.
#######################
use warnings;
use strict;
use CGI qw(:standard);
print "Content-type: text/html\n\n";
my $a1= param("a1") || ("blank");
my $a2= param("a2") || ("blank");
my $a3= param("a3") || ("blank");
my $b1= param("b1") || ("blank");
my $b2= param("b2") || ("blank");
my $b3= param("b3") || ("blank");
my $c1= param("c1") || ("blank");
my $c2= param("c2") || ("blank");
my $c3= param("c3") || ("blank");
print qq (
Buttons
);
print "
Parameters passed :
\n";
foreach my $name ( param ){
print $name , " => '" , param($name), "'
\n";
}
print "
\n";