Select Code to Download

use Tk;
require Tk::DirTree;
...
  $listbox->delete("entry",$_) foreach(@toplevel);
  $listbox->autosetmode();
}