#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<CENTER><H1>\n";
print "<BODY BGCOLOR=#fffff TEXT=#ff0000 Link=#ff0000 vlink=#ff0000 Alink=#ff0000 >\n";
print "<FORM METHOD=post ACTION=search>\n";
print "<IMG SRC=\"/home.gif\"><BR>\n";
print "Search Engine [Age, Location ....]</H1>\n";
print "<TABLE border=2>\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 Men</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 Women</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 "<h1>Search by Names</H1>\n";
print "<TABLE border=2>\n";
print "<TR>\n";
print "<TD><FONT SIZE=5><a href=/tlc_fwom.html>Women Seeking Men</a></FONT></TD>\n";
print "</TR>\n";
print "<TR>\n";
print "<TD><FONT SIZE=5><a href=/tlc_fmen.html>Men Seeking Women</a></TD>\n";
print "</TR>\n";
print "<TR>\n";
print "<TD><FONT SIZE=5><a href=/men_men.htm>Men Seeking Men</a></TD>\n";
print "</TR>\n";
print "<TR>\n";
print "<TD><FONT SIZE=5><a href=/wom_wom.htm>Women Seeking Women</a></TD>\n";
print "</TR>\n";
print "<TR>\n";

print "</TABLE>\n";
print "</FORM>\n";
open(F,"tail.file");
while(<F>){
	print $_;
}
close(F);

