diff --git a/bin/tests/system/upforwd/ans4/ans.pl b/bin/tests/system/upforwd/ans4/ans.pl
index 000be5636c..20392a4c11 100644
--- a/bin/tests/system/upforwd/ans4/ans.pl
+++ b/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;
 	}
 }