use Tk;

my $t=tkinit->Text->pack;
$t->bind('<<Modified>>'=>sub {
        if($t->editModified) {print qq/chg\n/;$t->editModified(0)}
    });

MainLoop;