Select Code to Download

[- use Date::Calc qw(:all);
%mesiac=(1=>'January', 2=>'February', 3=>'March', 4=>'April', 5=>'May'
+, 6=>'June', 7=>'July', 8=>'August', 9=>'September', 10=>'October', 1
+1=>'November', 12=>'December');
%den=(1=>'Monday', 2=>'Tuesday', 3=>'Wednesday', 4=>'Thursday', 5=>'Fr
+iday', 6=>'Saturday', 7=>'Sunday');
...
$year = $fdat{year};
$dom = Days_in_Month($year,$month);
-]

[$ if ($day == $dom) $]
    [- if ($month == 12) {
...
<a href="?mod=day&month=[+ $month +]&year=[+ $year +]&day=[+ $day4 +]"
+>[+ $den{$dow4} +]</a>
</center></br>
[$ endif $]

<center>[+ $day +].&nbsp;[+ $mesiac{$month} +]&nbsp;[+ $year +]&nbsp;&
+nbsp;&nbsp;</center>
<center>
...
</table>
<a href="?mod=calendar&amonth=[+ $month +]&ayear=[+ $year +]">Back on 
+the week</a></br>
</center>