my $text = $frame2->Scrolled('Text',-font=>"courier 10", -scrollbars=> 'ose', -height=> 40,-width=>80, -background
=>'SystemWindow',-relief => 'flat', -wrap=>'word')->pack(-side=>'top', -expand => 'x',-fill => 'both');

open(FILE,$filename) or die "Can't open file $filename\n";
@lines = <FILE>;
		 
$text->insert("end", "@lines");
close FILE;

#tag definition
$text->tagConfigure('color', -foreground =>"red",-font => "Courier $font_kwic bold");
	
#search
$result = $text->search(-nocase => "$word_search", '1.0');

#adding tag
$text->tagAdd('color', "$result wordstart", "$result wordend");