open(TEMP,">$tmpfile") || die "Can't create $tmpfile.\n";
foreach $i (@indata)
{
  chomp($i);
  ($username,$password) = split(/\|/,$i);
  if ($username eq $in{'oldname'} && $password eq $in{'oldpw'} && $in{'delete'} ne "yes")
	{
	 print TEMP "$in{'oldname'}|$in{'newpw1'}\n";
	 print "<p>Your password has been changed.</p>";
               print "<p>Thank you!</p>\n";
	}
   elsif ($username eq $in{'oldname'} && $password eq $in{'oldpw'} && $in{'delete'} eq "yes")
	{
	 print "<p>Your password has been deleted.</p>\n";
       print "<p>Thank you!</p>\n";
	}
    else
	{
	 print TEMP "$i\n";
	}
}

close(TEMP);