my $sth = $dbh->prepare( qq|
  select count( * ) 
  from 
    userlist
  where
    colemail = ?
|) || die $dbh->errstr;

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