I think you need to read the Date::Calc documentation a little better. You are misusing the Today function; it takes a boolean parameter saying whether to return today's date according to your local time zone or according to universal time, not an array reference.

It also has a RECIPES section, with the very first example being comparing two dates. I think you want:

if (Delta_Days(Today(0), $year, $month, $day) == 0)
[download]

or, being perhaps a little more efficient, outside your formatting loops, say:

$today_in_days = Date_to_Days(Today(0));
[download]

and then,

if ($today_in_days == Date_to_Days($year, $month, $day))
[download]

Use Today(1) instead to use universal time instead of your server's local time to determine today's date.