my $okaymonth1 = ($cmonth - 2);
my $okaymonth2 = ($cmonth - 1);

if (($monthnr eq $cmonth) or ($monthnr eq $okaymonth1) or ($monthnr eq $okaymonth2))