#!/usr/bin/perl -w use CGI; $cgi = CGI->new(); print $cgi->header(); print $cgi->start_html(-title=>'8-Ball',-BGCOLOR=>'white'); print "
\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();