$top_f->destroy if Tk::Exists($top_f);