Select Code to Download

perl -e '
@months=qw(JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC);
...
   print "20$year/",++$index,"\n" if $month eq $months[$index];
}
'