chomp ($today = `date '+%a'`);
chomp ($d = `date '+%d'`);
chomp ($m = `date '+%m'`);
chomp ($y = `date '+%y'`);

##</code><code>##

@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);