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

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