#!C:\strawberry\perl\bin\perl.exe
use dbi;
$usernameentered = "user89";
$passwordentered = "password12";
$dbh = DBI->connect('dbi:mysql:Database','username','password')
or die "Connection Error: $DBI::errstr\n";
$sql = "select * from usertable";
$sth = $dbh->prepare($sql);
$sth->execute
or die "SQL Error: $DBI::errstr\n";
while (@row = $sth->fetchrow_array) {
@username= grep /$usernameentered/, @row;
print "@username\n";
@password= grep /$passwordentered/, @row;
print "@password\n";
if (@username !=$usernameentered)
{
print "incorrect username entered @username\n";
}
if (@password !=$passwordentered)
{
print "incorrect password entered @password\n";
}
}