sub member_exists 
{
my ($email,$mid) = @_;
chomp ($email,$mid);
my $db = "nMail";
my $sock = "/tmp/mysql.sock";
my $user = "";
my $pass = '';
my $dsn = "DBI:mysql:$db;mysql_socket=$sock";
my $mid = ();

my $dbh = DBI->connect($dsn,$user,$pass);
my $sth = $dbh->prepare("SELECT S_Email,MID FROM ML_Subscribers");
$sth->execute() || die "Error: Could not get mailing list data\n";
while (my @row = $sth->fetchrow_array) {
        if($row[0] eq $email and $row[1] == $mid){
                return 1;
        }
}
$sth->finish();
$dbh->disconnect();
return 0;
}