Select Code to Download

sub format_cell {
    my ($self, $format, @days) = @_;
...
        $self->{'cell_format'}[$_] = $format;
    }
}

sub format_cell2 {
    my ($self, $format, @days) = @_;
...
        }
    }
}

$html_months{$key} -> format_cell2({bgcolor => "red"}, 15)