open(TEMP,">$tmpfile") || die "Can't create $tmpfile.\n";
$found_user = 0; # flag
foreach $i (@indata)
{
  chomp($i);
  ($username,$password) = split(/\|/,$i);
  if ($username eq $in{'oldname'})
    {
     $found = 1;
     last;
    }
}
if (not $found)
  {
   print TEMP "Username $username is not registered\n";
  }
close(TEMP);