use Tk;
$mw = tkinit;
$mw->destroy;
$mw->destroy;