#!/usr/local/bin/perl -w

# can't use -T here.

use CGI;
$query = new CGI;

print $query->header;
print $query->start_html(-title=>'CS 333 Survey, Spring 2001', -bgcolor=>'white');
print "<h4> COS 333 Survey, Spring 2001 </h4>\n";

print "<P>\nThank you...\n<P>";

foreach $name ($query->param) {
        $value = $query->param($name);
        $s = $s . $name . " " . $value . "\n";
        print "<br> $name $value\n";
}
$s .= "Host " . $query->remote_host();
$s .= " " . $query->remote_addr();      # no idea why this has to be separate
print "<P> $s\n";
print $query->end_html();

 open(MAIL, "|mail bwk");
 print MAIL "$s\n";
 close MAIL;

# open(MAIL, ">>log";
# print MAIL "$s\n";
# close MAIL;
