use strict;
use warnings;
use Date::Calc qw/Calendar/;
use Tk;


my $MW = MainWindow->new(); 
$MW->geometry('300x200+50+50');
my $cal = Date::Calc::Calendar(2006,11);
$MW->Label(-text=>$cal)->grid();


MainLoop;