if($q->param('do') eq "Login") {

    open(USER, "user.dat");
    @user = <USER>;
    close(USER);

  if(!$q->param('user')) {
      &error("You need to enter a username");
  }
  elsif(!$q->param('pass')) {
      &error("You need to enter a password");
  }
  else {
    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 or Username is Incorrect"); }
          }
    }
  }
}