$toplevel->destroy;
In reply to Re: How to get rid of a TopLevel window by BlueBlazerRegular in thread How to get rid of a TopLevel window by blackadder