Thanks, I realised it was a typo, but what I need is : Change $top_frame->destroy; to $toplevel->destroy;
Many Thanks to all, It has worked.
Cheeeeers & respec