sub main {
    our $mw = MainWindow->new();
    $mw->protocol('WM_DELETE_WINDOW', \&beenden);