$main->Hook(WM_CLOSE, sub{ exit(); });
$main->Hook(WM_QUIT, sub{ exit(); });
$main->Hook(WM_QUERYENDSESSION, sub{ exit(); });
$main->Hook(WM_ENDSESSION, sub{ exit(); });