Select Code to Download

open(TEMP,">$tmpfile") || die "Can't create $tmpfile.\n";
$found_user = 0; # flag
...
   print TEMP "Username $username is not registered\n";
  }
close(TEMP);

      elsif ($username eq $in{'oldname'})
           {
            $found = 1;
            last;
           }