here it is

use Tk;
my $t = tkinit->Scrolled('Text')->pack();
$t->tagConfigure('red',-foreground=>'red');

$t->insert('end', "foo, bar, ",'', "fluffy", 'red');

MainLoop;
[download]