$main->Hook(WM_QUITSELF, sub{ exit(); });