sub {\&show_cwd(); $dirtree_frame->destroy})->pack(-fill => "both",
                                                          -expand => 1);