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