use Calendar::Simple;


print header, start_html("test");

  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 qq(<table width="297" border="1">
  <tr>);

  print "<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 map { "<td>$_</td>" ? sprintf "%2d ", "$_" : '&nbsp;&nbsp;&nbsp;' } @$_;
    print "<tr>";
  }

  print "</tr></table>";