use strict;
use warnings;

  use HTML::Calendar::Simple;

  my $cal = HTML::Calendar::Simple->new;

  $cal->daily_info
    ({
    'day' => 22,
    'text' => 'Post an answer to the calendar question on PM.'
    });
  print join "</tr>\n", split "</tr>", $cal->html;