sub displayText { 
  my ($text,$output) = @_; 
  $text->insert('end',$output); 
  $text->see('end'); 
  $mw->update;
}