Select Code to Download

use Tk;

...
   $main->destroy;
}