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

#!/usr/bin/perl
use strict;
use warnings;

use Tk;

my $fenster   = MainWindow->new();

my $text      = $fenster->Label(-text     => 'Bitte geben sie Ihren Namen ein  : ',
                                 -height   =>  5,
                                 -width    => 40,
                                );
my $eingabe   = $fenster->Entry();
my $schalter  = $fenster->Button(-text    => 'OK',
                                  -height  => 1,
                                  -width   => 4,
                                  -command => \&eingabe_bearbeiten,
                                 );
my $schalter2 = $fenster->Button(-text    => 'Ende',
                                  -height  => 1,
                                  -width   => 4,
                                  -command => sub { exit },
                                 );

$text     ->pack();
$eingabe  ->pack();
$schalter ->pack();
$schalter2->pack();

MainLoop();

sub eingabe_bearbeiten {
     my $popup = $fenster->Toplevel();
     $popup-> Label(-text    => 'Hallo ' . $eingabe->get() )->pack();
     $popup->Button(-text    => 'close',
                    -command => sub { $popup->destroy() } )->pack;
     $eingabe->delete(0, 'end');
}

#!/perl -w
#
use Tk;

my $mw1 = MainWindow->new();
$mw1->protocol("WM_DELETE_WINDOW",
  sub {
    my $mw2 = MainWindow->new();

    # Datenbank füllen
    # usw.
  });

# Anmelden...

MainLoop;