Terse calendar with CGI

use strict;
use warnings;
use CGI qw(:standard);

use Date::Calc qw( Days_in_Month Day_of_Week Month_to_Text Today
                   Day_of_Week_Abbreviation );

print header(),
  start_html(
            -title => "My Little Calendar",
            -head => style({ -type => 'text/css' },
                           join('', <DATA>)),
  );

my ($year, $month, $day) = Today();
my @month = (1 .. Days_in_Month($year, $month));
my $offset = Day_of_Week($year, $month, 1) - 1;
unshift @month, map { undef } 1 .. $offset;
my $end_of_month_offset = 7 - (@month % 7);
push @month, (undef) x $end_of_month_offset;
my @Cmonth = ();
while (@month) { push @Cmonth, [ splice @month, 0, 7 ] }

print
    table(
          Tr(
             td(
                { -class   => 'month',
                  -colspan => 7
                },
                uc(Month_to_Text($month))
               ),
            ),
          Tr(
             map {
                 td({ -class => 'day' },
                    Day_of_Week_Abbreviation($_))
             } (1 .. 7)
            ),
          map {
              Tr(
                 map {
                     td({ -class => $_ && $_ == $day ?
                              'today' : 'date' }, $_)
                     } @$_
                 )
              } @Cmonth
          );

__DATA__
table, tr {
 border:0;
 padding:0;
 margin:0;
}
tr {
 text-align:center;
}
td {
 font-family:optima,helvetica,sans-serif;
 font-size:60%;
 margin:2px;
 padding:1px;
}
.day {
 background-color:#9ca;
 width: 2.2em;
 font-weight:bold;
}
.date {
 background-color:#9cf;
 height: 2em;
}
.today {
 background-color:#cef;
 height: 2em;
}
.month {
 text-align:center;
 background-color:#68b; 
 font-size:11pt;
 letter-spacing:.2ex;
 font-weight:bold;
}