#!/usr/bin/perl

use CGI qw(:standard);

print
  header(),
  start_html("Thank you"),
  h1("Thank you"),
  h2("You supplied the following information");

foreach $name (param()) {
  $s .= "<B>" . $name . "</B>: " . param($name) . " ";
}
chop($s);

print
  p($s),
  end_html();