use Tk;
use Tk::TextUndo;

(tkinit)->Scrolled('TextUndo')->pack;
MainLoop;