#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<CENTER><H1>\n";
print "<BODY BGCOLOR=#000000 TEXT=#00FFFFFF>\n";
print "<FORM METHOD=post ACTION=search>\n";
print "<IMG SRC=\"/tlcplus/home.gif\"><BR>\n";
print "Helping you to search</H1>\n";
print "<TABLE>\n";
print "<TR>\n";
print "<TD><INPUT TYPE=radio name=seeking value=\"tlc_fwom.db\"></TD>\n";
print "<TD><FONT SIZE=5>Women Seeking Men</FONT></TD>\n";
print "</TR>\n";
print "<TR>\n";
print "<TD><INPUT TYPE=radio name=seeking value=\"tlc_fmen.db\"></TD>\n";
print "<TD><FONT SIZE=5>Men Seeking Women</TD>\n";
print "</TR>\n";
print "<TR>\n";
print "<TD><INPUT TYPE=radio name=seeking value=\"men_men.db\"></TD>\n";
print "<TD><FONT SIZE=5>Men Seeking Mem</TD>\n";
print "</TR>\n";
print "<TR>\n";
print "<TD><INPUT TYPE=radio name=seeking value=\"wom_wom.db\"></TD>\n";
print "<TD><FONT SIZE=5>Women Seeking Womem</TD>\n";
print "</TR>\n";
print "<TR>\n";
print "<TD><FONT SIZE=5>Age range:</TD>\n";
print "<TD><FONT SIZE=5>From: <INPUT TYPE=TEXT NAME=agelow value=0 size=\"2\" maxlength=\"2\"> to:\n";
print "<INPUT TYPE=TEXT value=99 NAME=agehigh size=\"2\" maxlength=\"2\"></TD>\n";
print "</TR>\n";
print "</TABLE>\n";
open(F,"place.db");
print "<SELECT name=place>\n";
print "<OPTION SELECTED>Please make a selection\n";
while(<F>)
{
print "<OPTION>$_\n";
}
close(F);
print "</SELECT>\n";
print "<INPUT TYPE=submit value=send>\n";
print "</FORM>\n";

