Select Code to Download

 use ModestCurrentDateModule;

...
 my $date3 = monthNumber.'-'.monthDay.'-'.year;
 my $date4 = monthNumber.'-'.monthDayDouble.'-'.year;

package ModestCurrentDateModule;
use strict;
...
sub monthDayDouble{ double monthDay }
sub year{ 1900 + $y }
1;