Select Code to Download

my $db_write = shift || 1;

#!/usr/bin/perl
use strict;
...
#=====================================================================
    my ($ref_mail,$db_write) = @_;
    $db_write = 1 unless defined($db_write);