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

use Tk qw{ MainLoop };
use Tk::Tree;
use Tk::ItemStyle;

my $mw   = 'MainWindow'->new(-title => 'Tree');
my $tree = $mw->Tree->pack(-fill => 'both', -expand => 1);

$tree->add($_, -text => $_) for qw( orange orange.red orange.yellow );

my $blue = $tree->ItemStyle('imagetext', -foreground => 'blue');
$tree->itemConfigure('orange.red', 0, -style => $blue);
MainLoop();