sub highlight_days { my ($cal) = @_; $cal->showdatenumbers(0); for (1..32) { # this works! months will still display with # the correct number of days. my $content = $cal->getcontent($_); my $size = $content ? "120%" : "90%"; $cal->setcontent($_, qq[ $_ $content ]); } return $cal; }