use strict;
use warnings;
use Tk;
use Tk::Text;
my $mw = tkinit();
my $text = $mw->Text()->pack();
$text->insert('end',"Rot\n");
$text->tagAdd('red_text',"1.13","1.18");
$text->insert('end',"blue\n");
$text->tagAdd('blue_text','end -1 lines','end -1 lines');
$text->tagConfigure('red_text', -foreground => 'red');
$text->tagConfigure('blue_text', -foreground => 'blue');
$mw->MainLoop();