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


##</code><code>##

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/