#!/usr/bin/perl use CGI ':standard'; # get a list of all the field names received. @names = param(); # tell the browser we are sending HTML print "Content-type: text/html\n\n"; # print HTML document head print< Generic EOHEAD # build a table that displays all the fields received print "\n"; for ($i=0;$i<=$#names;$i++) { $fieldname=$names[$i]; $val = param($fieldname); print "\n"; } print "
$fieldname$val
\n"; # Finish off the document print "\n";