in reply to Creating HTML tables

Here is my try for those tables, once in table-tags, once in pre-tags: 

#!/usr/bin/perl -w

use strict;
use CGI;
use Calendar::Simple;

my $rqry = new CGI();

print CGI::header();

my @months = qw(January February March April May June July
                August September October November December);
my $mon = shift || (localtime)[4] + 1;
my $yr  = shift || ((localtime)[5] + 1900);
my @month = calendar($mon, $yr);

print '<html><body>';
print "$months[$mon -1] $yr\n\n";
print '<table>';
print '<tr><td>Su</td> <td>Mo</td> <td>Tu</td> <td>We</td>'
     .'<td>Th</td> <td>Fr</td> <td>Sa</td></tr></tr>';
foreach (@month) {
    print '<tr>';
    print map{"<td>$_</td>"} @$_;
    print '</tr>';
}
print "</table>";

print "<pre>// or with pre-tag:\n";
print "$months[$mon -1] $yr\n";
print "Su Mo Tu We Th Fr Sa\n";
foreach (@month) {
    print map { $_ ? sprintf("%2d ", $_) : '   ' } @$_;
    print "\n";
}

print '</pre></body></html>';

[download]

update changed a little (so that it works ;)

In Section Seekers of Perl Wisdom