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;