my $sth = $dbh->prepare(<<SQL);
select count(*) from userlist
where colemail = ?
SQL

$sth->execute($FORM{email});