use POSIX;
use CGI qw(:standard);
use Calendar::Simple;
use DBIx::XHTML_Table;

print header, start_html('simple calendar');
print DBIx::XHTML_Table
   ->new([calendar],[qw(Su Mo Tu We Th Fr Sa)])
   ->modify(table   => {border=>1})
   ->modify(caption => strftime("%B %Y",localtime))
   ->output
;
print end_html;