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