$counter = 0;
$option_List = "";
while ($counter <= $month) {
$counter++;
$option_List .= qq~<option value="$counter">$counter</option>\n~;
}
$html_content .= qq~<select name="day" size="1">
$option_List
</select>
~;