For your example script, all you need to do is update the $mw after each write.

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