@td = Today([$year,$month,$day]);
@tod=($year,$month,$date);
	      $c=Compare($td,$tod);
	   	if ($c==1) {
	        	$bgcolor="#c0c0c0";
		} else {
		        $bgcolor="#FFFFFF";
	        }

##</code><code>##

[920]ERR: 24: Error in Perl code: Undefined subroutine &Embperl::__5::Compare called at d:\sukromne\www\epl\calendar.html line 58.