Select Code to Download

if (!$week || ($week == "")) {
     $lastday = date("t", mktime(0,0,0,$month,1,$year));
...
} else {
     $temp = ($day_of_week - date("w",mktime(0,0,0,$month,1,$year))) %
+ 7;
}

#!/usr/local/bin/perl -w

...
        return format_date($y, $EasterMonth, $EasterDay);
}