#!/usr/bin/perl use CGI; $q = new CGI; print $q->header(), $q->start_html("Thank you"), $q->h1("Thank you"), $q->h2("You supplied the following information"); foreach $name ($q->param) { $s .= "<B>" . $name . "</B>: " . $q->param($name) . " "; } chop($s); print $q->p($s), $q->end_html();