diff --git a/ncat/test/ncat-test.pl b/ncat/test/ncat-test.pl
index a5f15ee8d..834023bce 100755
--- a/ncat/test/ncat-test.pl
+++ b/ncat/test/ncat-test.pl
@@ -1485,6 +1485,7 @@ sub {
 	accept(S, SOCK) or die;
 	my ($port, $addr) = sockaddr_in(getpeername(S));
 	$port == 1234 or die "Client connected to proxy with source port $port, not 1234";
+	close(S);
 };
 kill_children;
 
@@ -1505,6 +1506,7 @@ sub {
 	accept(S, SOCK) or die;
 	my ($port, $addr) = sockaddr_in(getpeername(S));
 	$port == 1234 or die "Client connected to proxy with source port $port, not 1234";
+	close(S);
 };
 kill_children;
 
@@ -1525,6 +1527,7 @@ sub {
 	accept(S, SOCK) or die;
 	my ($port, $addr) = sockaddr_in(getpeername(S));
 	$port == 1234 or die "Client connected to proxy with source port $port, not 1234";
+	close(S);
 };
 kill_children;