It works fine on mine as well (ActiveState). Initializing the main window size may solve your problem.

use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();
$mw->geometry('100x300');
...
[download]