$mainwindow = MainWindow->new();
---------
do some Tk GUI stuff
---------
$mainwindow->destroy() if (defined $mainwindow);
CORE::exit(0);