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