foreach $line (@user) {
          chomp($line);
          ($name, $site, $site_id, $des, $email, $pass) = split(/\|/,$line);
          $pass2 = crypt($q->param('pass'), r);

          if($q->param('user') eq $site_id) {
             if($pass2 eq $pass) {
                 &start;
             }
             else { &error("Password Incorrect"); }
          }
          else { &error("Username does not exist"); last;}
    }
  }

##</code><code>##

else { &error("Username does not exist"); last;}