#!/usr/bin/perl -w
use CGI qw(:cgi);
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
### Global Variables ###
@month_abbr = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
@month_long = qw( January February March April May June July August September October November December );
@days_abbr = qw( Sun Mon Tue Wed Thu Fri Sat );
#@days_long = qw( Sunday Monday Tuesday Wednesday Thursday Friday Saturday );
$jandays = $mardays = $maydays = $juldays = $augdays = $octdays = $decdays = 31;
$sepdays = $aprdays = $jundays = $novdays = 30;
$febdays = 28;
@thismonth = qw( $jandays $febdays $mardays $aprdays $maydays $jundays $augdays $sepdays $octdays $novdays $decdays );
###################
##### Main Routine #####
###################
&head;
$thisyear = 2002;
yeartable($thisyear);
for ($x = 1; $x < 4; $x++) {
&month_top($x);
&meat($x, $thisyear);
}
print "