my $sth = $dbh->prepare(<<SQL) or die $dbh->errstr;
select count(*) from userlist
where colemail = '$FORM{'email'}';
SQL

$sth->execute;