use Tk;
use Tk::Dialog;

use warnings;
use strict;

my $MW = MainWindow->new(-title => "Tk::Text test",
                         -width => 200,
                         -height => 200);

my $text = $MW->Entry(
                     -width  => 40);
$text->pack(-side => 'top', -fill => 'both');
$text->bind( '<FocusOut>' => \&callback);
my $text2 = $MW->Text(-height => 10,
                     -width  => 40,
                     -wrap   => 'word');
$text2->pack(-side => 'top', -fill => 'both');

MainLoop;

sub callback {
	if ($text->editModified()) {
		$text->Dialog(-title=>"Modified",-text=>"\$text has been modified")->Show();#or whatever you want
		$text->editModified(0);
	}
}