if ($month eq "1") #January, obviously
    {
>>>     $message .= "<!-- January -->\n";