open(MYOUTPUTFILE, ">>$filename");
	do{
		print "Geben Sie einen Namen ein. [Falls Sie keine mehr wissen, '999' eingeben]\n\n";
		$sinput = <STDIN>;
		chomp ($sinput);
		$entrytime = gettimeofday() - $CatStarttime;
		$entryduration = $entrytime - $temptime;
		$inputlength = length($sinput);
		# $correctedduration = $entryduration - $inputlength/$keys_per_second;
		$sinput =~ tr/,/°/; #replace "," with "°"
		if ($sinput ne "999"){
			$counter = $counter + 1;
			# $globalentrycounter = $globalentrycounter + 1; # no need for global entry
			}
		if ($inputlength < 2) {
			$counter = $counter - 1;						#There's no such thing as a free lunch. - Yes there is!
			# $globalentrycounter = $globalentrycounter - 1;	
			{   local( $| )= 1;
  				print "Bitte keine Abkürzungen oder leere Eingaben. Weiter mit der Enter-Taste.";
   				my $resp= <STDIN>;
			}
		}
		print MYOUTPUTFILE "$subjectID, $subjectage, $sex, $CatStarttime, $entrytime, $entryduration, $inputlength, $sinput, $counter, \n";
		$temptime = $entrytime;
			for ($times = 0; $times < 1000; ++$times) {
				print "\n";
			}
		}
		while ($sinput ne "999");
		close(MYOUTPUTFILE);
	$synccounter = $synccounter + 1;
	

for ($times = 0; $times < 1000; ++$times) {
	print "\n";
}

print "Sie haben nun das Ende dieses Experiments erreicht.\n";
print "Sie haben CHF $counter Namen eingegeben.\n";
print "Bitte wenden Sie sich an die/den VersuchsleiterIn.\n\n\n\n";