Line up Calendar

mikasue has asked for the wisdom of the Perl Monks concerning the following question:

Fellow Monks,

In a program of mine, I'm trying to show a calendar for the current month. I am using Date::Calc Calendar function and while it prints to the screen nicely formatted, my tk label looks ugly.

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;
[download]

Can anyone please advice me on how to line up this calendar?

Back to Seekers of Perl Wisdom