perl -MTk -e '$mw=tkinit;$txt=$mw->Scrolled("Text")->pack(-fill=>"both",-expand=>1);$txt->insert("end",join "",  map { $_ . " " . chr($_) . "\n" } 32 .. 10000); MainLoop'