diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 1a2e2b9bc6431f9ee6c50c4530e21bfd887d7f31..b4442c68feeb308c88568809c21452f41b0280a1 100644
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -11,7 +11,6 @@
 #
 
 use Socket;
-use Carp;
 use FileHandle;
 
 use strict;
@@ -572,5 +571,4 @@ for ( $waitedpid = 0;
             
     } # while(1)
     close(Client);
-    close(Client2);
 }