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

$sth->execute;

##</code><code>##

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

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