#!/usr/bin/perl

require '/usr/local/etc/httpd/cgi-bin/cgi-lib.pl'; # S.E.Brenner's library

print "Content-type: text/html\n\n";

###
### Values from the form
###

&ReadParse;

($remote_host = @ENV{'REMOTE_HOST'});
($remote_ident = @ENV{'REMOTE_IDENT'});

($word = $in{'word'});
($sex = $in{'sex'});

###
### Main
###

print <<"EOT";

<title>Output from silly form</title>
<h2>Output from silly form</h2>

You claim to be a $sex.<BR>
You typed in "$word"<BR>
You are logged in from $remote_host.<BR>
Your username is $remote_ident.<BR>
EOT