Select Code to Download

$mod::d_area = "(default)";
*d_area = \$mod::d_area;             # Create alias in *main::
...
}

say $d_area;                         # two

my %mod = ( d_area => "(default)" );
my %main;
...
}

say $main{ d_area };                 # two