+
+use vars qw($VERSION $BRANCH @days @ldays @month);
+main::mkver($VERSION = q$Revision$) if main->can('mkver');
+
+@days = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
+@ldays = (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
+@month = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
+