#!/usr/bin/perl use strict; use Calendar::Simple; print "Content-type: text/html\n\n"; print ""; my $cal; my $maxcols=0; for (1..12) { my @month = calendar($_); $cal .= ""; my $colcount=0; for (@month) { my $week = $_; for (@$week) { $cal .= ""; $colcount++; } } $cal .= "\n"; $maxcols = $colcount if $colcount > $maxcols; } my @days = qw (Sun Mon Tues Wed Thurs Fri Sat); my $calheader = join '',map {""}(0..$maxcols); print "$calheader\n$cal

$_:	" .($_ ? (sprintf "%2d",$_) : ' ')."
".$days[$_ % scalar @days]."