#!/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();