perl -MTcl::Tk -we '$t=Tcl::Tk::tkinit->Text->pack;$t->bind("<<Modified>>"=>sub{if($t->editModified){print qq/chg\n/;$t->editModified(0)}});Tcl::Tk::MainLoop'