#! /usr/bin/perl
use warnings;
use strict;
 
use Tk;
my $mw=MainWindow->new(-title=>"Hauptfenster");
 
createWindowandWait();
 
print "fertig!\n";
 
Tk::MainLoop();
 
sub createWindowandWait{
         my $window      = $mw->Toplevel();
 
         $window->Button(
                 -text => 'neues Toplevel-Fenster',
                 -command        => sub{
				my $ok  = undef;
			         	my $window2      = $mw->Toplevel();
         				$window2->Button(
                 					-text => 'ok!',
                 					-command        => sub{ $ok = 1;} 
				)->pack();
         				$window2->focusForce();
 
         				# warte solange bis variable '$ok' den wert true hat:
         				$window2->waitVariable(\$ok);
				print "funktioniert ;-), besten Dank!";
				$window2->destroy();
			      }
         )->pack();
 }