Select Code to Download

use Tk;

...
$mw->Button(-text=>'Close Toplevel',-command=>\&close_toplevel)->pack;

MainLoop;