my $ref_mail = shift;
my $db_write = @_ ? shift : 1;

##</code><code>##

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