use strict;
use warnings;
use Tk;

my $mw = new MainWindow;

my $text = $mw->Text(qw/-width 40 -height 10/)->pack;
my $current_color = "black";
$text->configure(-insertbackground => $current_color);
$text->configure(-cursor => "arrow");
my $button = $mw->Button(-text => "Quit", -command => sub { exit })->pack;
$text->bind('<<Modified>>', sub{warn "text changed\n"} );
MainLoop;



##</code><code>##

my $len;

..

$text->bind('<<Modified>>', sub{
                                if ($len != length $text->Contents ){
                                    $len = length $text->Contents;
                                    warn "text changed ($len)\n";
                                    $text->editModified(0)
                                }
                             }
);

##</code><code>##

$text->bind('<<Modified>>', sub{
                                if ($len ne $text->Contents ){
                                    $len =  $text->Contents;
                                    warn "text changed\n";
                                    $text->editModified(0)
                                }
                             }
);