Help for this page
perl -MTk -e '$txt = tkinit->Text->pack; $txt->insert("end", [1,2,3]); +MainLoop'