#!c:\perl\bin\perl
use CGI;
$cgi=new CGI;
print($cgi->header,
      $cgi->start_html("Form posting results"),
      $cgi->h2("You submitted the following 'name = value' pairs: "));
@field_names=$cgi->param();
foreach $field_name (@field_names)
	{ 
	@field_values=$cgi->param($field_name);
	foreach $field_value (@field_values)
		{
		print($cgi->li("$field_name = $field_value \n"));
		}
	}
print   $cgi->end_html;