Select Code to Download

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

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