Select Code to Download

    $tree->bind("<Button-4>", sub { $tree->yview('scroll',1,"units") }
+);
    $tree->bind("<Button-5>", sub { $tree->yview('scroll',-1,"units") 
+});