perl -MTk -MTk::TextUndo -e "(tkinit)->Scrolled('TextUndo')->pack;MainLoop"