#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $mw = MainWindow->new(
	-background=>"darkviolet"
	);


my $t1 = $mw->Text(
   	-background=>"navy",
   	-foreground=>"white",
   	-height=>35,
   	-width=>80,
   	-wrap=>"word",
   	-selectbackground=>"blueviolet"
   	)->pack;
$t1->bind("<KeyRelease>" => sub {$t1->SetCursor('current - 1 chars')});

MainLoop;