my $Frage = <STDIN>;
	while ($Frage!=""){