Check read value in upforwd/ans4

The ans4 server wasn't shutting down cleanly sometimes.  Check that
read returns the expected value for the message length or exit read
loop.

bin/tests/system/upforwd/ans4/ans.pl

@@ -357,7 +357,9 @@ for (;;) {
 			last unless $n == 2;
 			my $len = unpack("n", $lenbuf);
 			$n = $conn->sysread($buf, $len);
+			last unless $n == $len;
 		}
 		sleep(1);
+		$conn->close;
 	}
 }