....except what will you do when it's no longer August? Maybe something like (untested):

$hash{$mm} = $dd;foreach $key ( keys %hash ) {
$cal = new HTML::CalendarMonthSimple('month'=>$mm,'year'=>$yyyy);
}
[download]