use Tk;

use strict;
use warnings;


my $mw	= tkinit (-title => "test");

$mw-> repeat (3000, sub {fenster_generator ();});


MainLoop ();


sub fenster_generator{
	my $toplevel	= $mw-> Toplevel (-title => "test...");
	$toplevel-> focusForce ();
}