Data::Compare is a bit overkill unless you are comparing a lot of arrays. If you are just doing this compare, I would compare the elements.

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