use strict;
use warnings;
use Tk;
use Tk::Month;


my $MW = MainWindow->new(); 
$MW->geometry('300x200+50+50');

my $m = $MW->Month(
                -month          => 'November',
                -year           => '2006',
                -title          => '%b %y',
                -command        => \&press,
                -printformat    => '%e',
                -navigation     => [0|1],
                -includeall     => [0|1],
                -showall        => [0|1],
                -first          => [0|1|2|3|4|5|6],
        )->pack();


MainLoop;