Select Code to Download

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

...
    }
  }
}

if($q->param('user') eq $site_id) {
             if($pass2 eq $pass) {
...
             else { &error("Password or Username is Incorrect"); }
          }