use strict;

use HTML::Calendar::Simple;

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

print $html;