Select Code to Download

$tree->bind('<3>', sub{print "right click"});

$tree->add("test1", -text => "TEST 1");
$tree->add("test2", -text => "TEST 2");
$tree->add("test3", -text => "TEST 3");