#!/usr/local/bin/perl

$PeopleFile     = "/export/home/www/mirroreddns/secure/people.list";
$try = $user+$password;
$check = $UserName+$random;

 open (PEOPLE, ">>$PeopleFile");
until (eof (PEOPLE))
{
$line = <PEOPLE>;
chop ($line);

if 	($line=($check == $try)
{
close (PEOPLE);

print <<"HTML";
<HTML>
<HEAD>
<TITLE>Thanks</TITLE>
</HEAD>
<BODY bgcolor="#FFFFE4" background="http://www.aa.net/~rclark/ivory.gif">

<H2>Your request has been sent and is probably in your mainbox already.</H2>

<b>Thanks for registering!</b>

<p>
If you included your correct e-mail address, a password
will be e-mailed to you automatically.

</BODY>
</HTML>
HTML
die;



else
{
 die;
}
	}
		}