Hi, Here is the solution (actually very simple, but one have to know that).

use Tk;
use Tk::Tree;
use strict;


my $Main = MainWindow->new;
    $Main->title("kuku");

my @win;
my $kuku;
my $info_m = $Main->Frame(-relief=>'groove',-borderwidth=>'3',)->pack(
+-side => 'left', -expand => 1, -fill => 'both',);
        my $tree = $info_m->Scrolled("Tree")->pack(-side=>'top',-expan
+d=>1,-fill=>'both');
        #my $win = $Main->Toplevel;
        $win[0] = $tree -> Checkbutton(-text => "Kaka", -variable => \
+$kuku);
        $win[1] = $tree -> Checkbutton(-text => "Kaka2");
        $win[2] = $tree -> Checkbutton(-text => "Kaka2");
        $win[3] = $tree -> Checkbutton(-text => "Kaka2", -variable => 
+\$kuku);
        $tree -> add("one", -widget=> $win[0], -itemtype => 'window');
        $tree -> add("one.two", -widget=> $win[1], -itemtype => 'windo
+w');
        $tree -> add("one.two.muku", -widget=> $win[2], -itemtype => '
+window');
        $tree -> add("three", -widget=> $win[3], -itemtype => 'window'
+);
        $tree -> add("four",-text=> "four");
        
        $tree -> autosetmode();

MainLoop;
[download]

Have fun... TheMarty