Some creative urge over took me and i figured out the date calculations to go with your HTML output! ;)

use strict;
use warnings;

use Data::Dumper;
use CGI::Pretty qw(:standard start_table end_table start_Tr end_Tr), (
+-unique_headers);
#use CGI::Carp qw(fatalsToBrowser);

use Date::Calc  qw(Week_of_Year Monday_of_Week Add_Delta_Days Standard
+_to_Business);
my @day    = (2007,2,10);
my @week   = Week_of_Year(@day);

my @weeks = [];
for my $delta  (-15..15) {
    my @n_day   = Add_Delta_Days(@day,$delta);

    #calculate which week we are in
    my @n_week  = Week_of_Year(@n_day);

    #calculate the day of the week
    my @b_day   = Standard_to_Business(@n_day);

    #put it in a nice array of arrayref
    $weeks[$n_week[0]]->[$b_day[2]-1] = $n_day[2];
}

# this seemed easier than calculating the smallest week 
# number and subtracting that from each index
@weeks = grep {defined} @weeks;

print header();
print start_html (-title => "Calendar sample");

my @weekDays = qw(Mon Tue Wed Thur Fri Sat Sun);

print start_table();
print Tr ({-align=>'CENTER',-valign=>'TOP'}, td (\@weekDays));
for my $week (@weeks) {
     print start_Tr({-align=>'CENTER',-valign=>'TOP'});
     for my $date (@$week) {
          if (! defined $date) {
               print td ('');
          } elsif ($date == $day[2]) {  
               print td(strong($date));  
          } else {
               print td ($date);
          }
     }
     
     print end_Tr();
}      

print end_html ();
[download]

#use strict;
#use warnings;

require "dbi-lib.pl";              
use CGI qw/:standard *table start_ul/, (-unique_headers);
use CGI::Carp qw(fatalsToBrowser);
use DBI;
my $cgi = new CGI;
local $sth;

#----------------------#
# Function calls       #
#----------------------#

print_header();
initialize_dbi();

#----------------#
# Begin Main     #
#----------------#


print $cgi->header(),
      $cgi->start_html ('Oreilly SQL Class, Lesson 11'),# Header
      $cgi->h1 ({-style=>'Color:blue'},'SQL Class');# Body

      print "<u>",$cgi->strong('Date/Time CGI Table:'),"</u><p>";
      print $cgi->caption('MySQL calendar table output, Lesson 11:');
      print "<p>";
      
      run_statement( "select date_format(curdate(), '%b %e, %Y');" );
      my $today = $sth->fetchrow;
        
      #run_statement( "select dayofweek('$today');" );
      #my $dayofweek = $sth->fetchrow;
      #print $dayofweek;
  
      #&run_statement( "select date_format(curdate()-2,'%W');" );     
+                   
      #my $twodayago = $sth->fetchrow;
      #print "$twodayago <p>";

my @WeekDays = qw(Sunday Monday Tuesday Wednesday Thursday Friday Satu
+rday);
my ($day,$week,)               = (0,0);
my (@weeks, @weeks_anonymous,) = ();

foreach $day ('-15' .. '15') {
    run_statement( "select date_format(date_add(curdate(), interval '$
+day' day), '%b %e, %Y');" );
    push (@weeks, $sth->fetchrow);
} 

## Begin Table ##

print table({border=>undef});
print Tr ({-align=>'CENTER',-valign=>'TOP'}, td (\@WeekDays));
@weeks_anonymous = ( 
                     
[ undef, undef, undef, $weeks[0], $weeks[1], $weeks[2],  $weeks[3] ],
[ $weeks[4], $weeks[5], $weeks[6], $weeks[7], $weeks[8],  $weeks[9], $
+weeks[10] ],

[ $weeks[11], $weeks[12], $weeks[13], $weeks[14], $weeks[15], $weeks[1
+6], $weeks[17] ],

[ $weeks[18], $weeks[19], $weeks[20], $weeks[21], $weeks[22], $weeks[2
+3], $weeks[24] ],

[ $weeks[25], $weeks[26], $weeks[27], $weeks[28], $weeks[29], $weeks[3
+0], $weeks[31] ],
                                             
);

foreach $element (@weeks_anonymous) {
    print Tr({-align=>'CENTER',-valign=>'TOP'});
    for $date (@{$element}) { 
        if (! defined $date) { 
            print td ('');
        } 
        elsif ($date eq $today) {   
            print td(strong($date));  
        } 
        else {
            print td ($date);
        }
    }
    print $cgi->end_Tr;
}
        
print $cgi->end_html;

**************************
I was thinking of hard-coding January, Febuary and March months into  
+an anonymous array then combined with the @weeks_anonymous elements c
+reate a final anonymous array that reflects the correct pairing of   
+daynames and dates???
[download]