Hi,
Use the "-expand" option.

 my $tw= $mw->Text()->pack(-anchor=>'w', -fill=>'both', -expand=>'1');
[download]

si_lence