my $t = $mw->Text(-height=>2, -font=>'helvetica 12')->pack(-side=>'top', -expand=>'1', -fill=>'both');
$t->insert('end', "Blah " x 10);
my $f = $mw->Frame(-background=>"#FF0000")->pack(-side=>'top', -expand=>'1', -fill=>'both');