Help for this page
my $sql = q{ select count(*) ... } else { # login error }
if (($dbh->selectcol_arrayref($sql, undef, $username, my_crypt_call($p +assword))->[0] == 1)