sub close_win(var) {
     var->destory;
     }
button(-command=>\&close_win($thiswindow))->pack...