sub verify {
     open FILE, "$user_file" || die "Can't open user's login files: $!";
     while(<FILE>) {
          my ($user,$pass)=split(/\|/);
          foreach $user($user) {
               if ($user eq $q->param('ueq &encrypt_pass) {
                    &good;
               } else {
                    &bad;
               }
          }
     }
     close FILE;
}