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;