#!/usr/bin/perl -w
use CGI;
$cgi = CGI->new();
print $cgi->header();
print $cgi->start_html(-title=>'8-Ball',-BGCOLOR=>'white');
print "Your Answer
\n";
#print "Your query was: @ARGV\n";
print "The data you passed was:
\n";
@param_names = $cgi->param();
foreach $p (@param_names) {
$value = $cgi->param($p);
print "Param $p = $value
\n";
}
print "Sorry, ask again later.
\n";
print $cgi->end_html();
Command-Line CGI
Ask the
param