my $mw = MainWindow->new();
$mw->Button(-text => 'Logon', -command => \&Logon)->pack();
# input-zeug zeichnen
$mw->protocol('WM_DELETE_WINDOW', \&KillWindow);
MainLoop();

$mw = MainWindow->new();
$mw->protocol('WM_DELETE_WINDOW', \&ExitApplication);
# rest zeichnen
MainLoop();
# -----------------------------------
sub KillWindow {
  # wird aufgerufen, wenn jemand das 1. $mw zu beenden versucht
  # wenn du nichts tust, kann es nicht geschlossen werden
} # KillWindow
# -----------------------------------
sub Logon {
  $mw->destroy();
} # Logon