Select Code to Download

my $tm = localtime;
my $this_month   = sprintf("%04d%02d?",
...
                           $tm->year+1900-($tm->mon()<3 ? 1 : 0),
                           ($tm->mon()-3)%12+1,
                          );