use Tk;
use Tk::Tree;
use Tk::ItemStyle;

use warnings;
use strict;

my $main = MainWindow->new (-title => "Test tree");
my $tree = $main->ScrlTree(-itemtype => 'text', -separator  => '/', -scrollbars => "osoe");
my $yellow_style = $tree->ItemStyle('text', -refwindow => $tree, -bg => '#FFFF00');
my $green_style = $tree->ItemStyle('text', -refwindow => $tree, -bg => 'green');
$tree->add(1, -text => 'abcd', -itemtype => 'text', -style => $yellow_style);
$tree->add(2, -text => '1234', -itemtype => 'text', -style => $green_style);
$tree->autosetmode;
$tree->close (1);
$tree->pack(-fill=>'both',-expand => 1);

MainLoop;