fix the server for the slow response case

    eval {

        local $SIG{ALRM} = sub { die "alarm\n" };

        alarm 5; # assume swift operations

	# assume swift operations unless explicitly slow

	alarm ($controldelay?20:5);

        # Wait for 'CNCT'

        my $input = <DREAD>;

	my $input;

	my $size;

        while(sysread(DREAD, $input, $size)) {

	    if($input !~ /^CNCT/) {

		# we wait for a connected client

		logmsg "Odd, we got $input from client\n";

		next;

	    }

	    logmsg "====> Client DATA connect\n";

	    last;

	}

        alarm 0;

    };

    if ($@) {