in reply to Calendar Module

here's a cgi i whipped together with Calendar::Simple

I've never really seen a sasco calendar, but from what i gathered after a quick search i think this is what you're looking for? 
#!/usr/bin/perl

use strict;
use Calendar::Simple;

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

print "<html><body><table style='width:100%;border-collapse:collapse;b
+order:1px solid black;'>";
my $cal;
my $maxcols=0;
for (1..12) {
        my @month = calendar($_);

        $cal .= "<tr><td>$_:</td>";
        my $colcount=0;
        for (@month) {
                my $week = $_;
                for (@$week) {
                        $cal .= "<td style='border:1px solid black;wid
+th:20px;height:20px;'>"                                .($_ ? (sprint
+f "%2d",$_) : '  ')."</td>";
                        $colcount++;
                }
        }
        $cal .= "</tr>\n";

        $maxcols = $colcount if $colcount > $maxcols;
}

my @days = qw (Sun Mon Tues Wed Thurs Fri Sat);
my $calheader = join '',map {"<td style='width: 10px;'>".$days[$_ % sc
+alar @days]."</td>"}(0..$maxcols);
print "<tr><td>&nbsp;</td>$calheader</tr>\n$cal</table></body></html";

[download]
update: scalar vs. $#

In Section Seekers of Perl Wisdom