use strict; use warnings; use HTML::CalendarMonth; use HTML::AsSubs; my $month = 10; my $year = 2006; my $cal = HTML::CalendarMonth->new( month => $month, year => $year ); $cal->item($cal->year, $cal->month)->attr(bgcolor => 'wheat'); $cal->item($cal->year, $cal->month)->wrap_content(font({size => '+2'})); my @days = $cal->days; for (@days){ $cal->item($_)->wrap_content(a({href => 'http://mysite/cal/index'.$year.$month. $_ .".html"})); } print $cal->as_HTML;