For better performance you can do following:

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;
}
[download]

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);