use Tcl::Tk qw(:perlTk);

my $mw = tkinit;
my $tw = $mw->Scrolled('Text')->pack;

my $t0=time;

for my $stresser ('a'..'zzz') {
  $tw->_windowCreate('end',-window=>$tw->_Button(-text=>$stresser));
  if ($stresser =~ /z$/) {
    $tw->_insert('end',"\n") ;
    $tw->_seeEnd;
    #$tw->update;
  }
}

my $t1=time;
print STDERR "time=".($t1-$t0)."\n";

MainLoop;