@days = grep { $_ ne $today } qw/Sun Mon Tue Wed Thu Fri Sat/;
%month = (1, 31, 2, 29, 3, 31, 4, 30, 5, 31, 6, 30, 7, 31,
          8, 31, 9, 30, 10, 31, 11, 30, 12, 31);