sub member exists { my ($dbh, $email, $mid) = @_; my $sth = $dbh->prepare(SELECT 1 FROM ML_Subscribers WHERE S_Email=? AND MID=?); my $res = $sth->execute($email, $mid); $sth->finish(); return $res>0 ? 1 : 0; }