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";