#!/perl -w
#
use Tk;

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

    # Datenbank füllen
    # usw.
  });

# Anmelden...

MainLoop;