#table l---------l----------l l_account_l_password_l l---------l----------l l__name___l___123____l l---------l----------l #form
Account:
Password:
#perl $account = param("account"); $password = param("password"); if($check) { $querycheck = $dbh->prepare("select * from data"); $querycheck->execute; if($account != "account" and $password != "password") { print "Login failed. Account and password do not match."; } return true; }