Simple Perl CGI

#!/usr/bin/perl use CGI ':standard'; # use perl CGI module in standard mode (functions) # get a list of all the field names in the query received @names = param(); # build a table that displays all the fields received # print header sends back an HTTP header that defaults to # content-type of text/html print header; print start_html("Simple Perl CGI"); print h1('hi dave'); print< Simple Perl CGI

Here are the fields received:

EOH print "\n"; foreach $fieldname (@names) { # get the value of the field $val = param($fieldname); print "\n"; } print "

$fieldname

$val

\n"; print< EOE