#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<CENTER><H1>\n";
print "<BODY bgcolor=#000000 TEXT=#00ffff Link=#ffff00 vlink=#ffcc00 Alink=#ff0000 BACKGROUND=/staru.gif>\n";
print "<FORM METHOD=post ACTION=mearch>\n";
print "<IMG SRC=\"/home.gif\"><BR>\n";
print "<h2>HOT PROFILES</H2>\n";
print "<TABLE border=2>\n";
print "<TR>\n";
print "<TD><FONT SIZE=4><a href=/tlc_fwom.html>Women Seeking Men</a></FONT></TD>\n";
print "</TR>\n";
print "<TR>\n";
print "<TD><FONT SIZE=4><a href=/tlc_fmen.html>Men Seeking Women</a></TD>\n";
print "</TR>\n";
print "<TR>\n";
print "<TD><FONT SIZE=4><a href=/men_men.htm>Men Seeking Men</a></TD>\n";
print "</TR>\n";
print "<TR>\n";
print "<TD><FONT SIZE=4><a href=/wom_wom.htm>Women Seeking Women</a></TD>\n";
print "</TR>\n";
print "<TR>\n";
print "</TABLE><BR><BR>\n";
print "<h2>SEARCH BY AGE, LOCATION</H2>\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=4>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=4>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=4>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=4>Women Seeking Women</TD>\n";
print "</TR>\n";
print "<TR>\n";
print "<TD><FONT SIZE=4>Age range:</TD>\n";
print "<TD><FONT SIZE=4>From: <INPUT TYPE=TEXT NAME=agelow value=0 size=\"2\" maxlength=\"2\"> to:\n";
print "<INPUT TYPE=TEXT value=99 NAME=agehigh size=\"3\" maxlength=\"2\"></TD>\n";
print "</TR>\n";
print "</TABLE>\n";
open(F,"place.db");
print "<font size=2><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></font>\n";
print "</FORM>\n";

open(F,"tail.file");
while(<F>){
	print $_;
}
close(F);

