Select Code to Download

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

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