#!/usr/bin/perl ############################################################################### #formTest2: Test the HTML Form Elements # print form element to HTML page, ############################################################################### use CGI "param"; # use CGI "param" module @elementNames = param(); # get all FORM element names &printData(); # Call printData to print ############################################################################### # printData: print form data elements into an HTML form ############################################################################### sub printData { print "Content-type: text/html \n"; print "\n"; print " Print Form Elements "; print "

Your Form Elements and Values are:

"; foreach $name (@elementNames) { @values = param($name); print "\n
$name: "; foreach $value (@values) { print "$value
"; } } print "
"; }