$left_frame->Label(-text => "Perl Chat Client v$VERSION")
              ->pack(-side => 'top',
                     -anchor => 'nw');
   $status = $left_frame->Text (-width => 40,
                                -height => 30,
                                -wrap => 'word')->pack();

   $status->tagConfigure(section,
      -font => '-adobe-helvetica-bold-r-normal--14-140-75-75-p-82-iso8859-1');

   $status->bind('<Double-1>', \&pick_word);
   $left_frame->Label(-text => 'Global Message:')->pack(-side => 'left', -anchor => 's');
   $gm_quick = $left_frame->Entry (-width => 26)->pack(-side => 'left', -anchor => 's');
   $gm_quick->bind('<KeyPress-Return>', sub { 
                                           send_msg_all($gm_quick->get());
                                           $gm_quick->delete(0,'end');