Select Code to Download

my @now = localtime( time );
my %container; # use this rather than a symbolic ref
...
my $dAry = join ',', @dAry;
my $wAry = join ',', @wAry;
my $mAry = join ',', @mAry;