Select Code to Download

use POSIX 'strftime';
my @t = (localtime(time));
...
print "beg = $monthly_date_beg\n";
print "end = $monthly_date_end\n";