my $text = $mw->Text(-width => 10, -height => 10)->pack;
tie *STDOUT, ref $text, $text;