$add_dir_button = $bottom_frame->Button(-text=>"Add directory",
                                              -command=>sub { manage_dirtree($TOP,\$create,$add_dir_button,\$dir_frame); }

                                                              
                                      )->grid(-row=>0,-column=>2,-columnspan=>2,-sticky=>'e');