or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
...
offset -13: Nov Dec Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec Ja
+n
offset -12: Dec Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec Jan Fe
+b
offset -11: Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec Jan Feb Ma
+r