my $ref_mail = shift;
my $db_write = defined $_[0] ? shift : 1;