$TK{'perltree'}=$TK{'vl'}->Scrolled('Tree',
                                    -separator        => ':',
                                    -background       => $COLOR{'white'},
                                    -font             => $FONT{'SAP8BOLD'},
                                    -exportselection  => 1,
                                    -selectmode       => 'single',
                                    -scrollbars       => 'ose',
                                    -selectforeground => $COLOR{'limegreen'},
                                    -selectbackground => $COLOR{'grey'},
                                    -browsecmd        => \&perlTreeSelection,
                                    -width            => 20)->pack(-fill   => 'both',
                                                                   -anchor => 'n',
                                                                   -expand => 1);

##</code><code>##

  # Set scroll to 32
  $TK{'perltree'}->xview(32);

  # Focus on the perltree
  $TK{'perltree'}->update;