use Tk;
         
         $win = MainWindow->new;
         $text = $win->Text(-height => 1, -width =>6)->pack;
         
         MainLoop;