#!/usr/bin/perl -w

use CGI qw(:standard);
use Date::Calc  qw(:all);
use HTML::AsSubs;
use HTML::Element;
use HTML::CalendarMonth;

print "Content-type: text/html\n\n";

@dates = (731158, 731159, 731160, 731161, 731178, 731600);

foreach $days (@dates) {


($year,$month,$day) = Add_Delta_Days(1,1,1, $days - 1);

    if (($year eq 2002) && ($month eq 01)) {
    push (@days, $day);
} else {
    print "ok";
}
}
    
     my $c = HTML::CalendarMonth->new(month => $month, year => $year);
 $c->item(@days)->attr(bgcolor => 'wheat');
 
print $c->as_HTML;