#!/Perl/bin/perl

use strict;
use warnings;
use Tk;

use Tk::Text;

my $mw = tkinit;
my $text = $mw->Scrolled('Text', -scrollbars => 'se',)->pack(-fill => 'both', -expand => 1);

$text->insert('end',"Dies ist ein roter Test\n");
$text->tagAdd('red_text',"1.13","1.18");

$text->insert('end',"Dies ist ein blauer Test\n");
$text->tagAdd('blue_text','end -1 lines','end -1 lines');

$text->tagConfigure('red_text', -foreground => 'red');
$text->tagConfigure('blue_text', -foreground => 'blue');

$mw->Button(-text => 'Button')->pack();

$mw->MainLoop();