sub infoFenster {
	
	my $text = shift;
	
	my $mw = tkinit();
	my $sFenster = $mw -> Scrolled("Text", -scrollbars => 'e',-width =>60, -height=>20,) -> pack;
	$sFenster->focus();
	$sFenster->bind('<Any-KeyPress>', sub{$mw->destroy();});
	
	$sFenster->insert('end', $text);
	
	MainLoop;
}