#table
l---------l----------l
l_account_l_password_l
l---------l----------l
l__name___l___123____l
l---------l----------l

#form
<form method="get" action="" onsubmit="return formValidation(this)">  
Account: <input type="text" name="account"><br>
Password: <input type="password" name="password"><br> 
<input type="submit" value="login" name="check">

#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;
}