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

$missing_style = $tree_1->ItemStyle('text',
  -foreground=>'red',
  -activebackground=>'red');

$tree_1->entryconfigure($indent0_line,-style=>$missing_style);