diff --git a/tests/ftp.pm b/tests/ftp.pm
index af4871733..7c4fe951f 100644
--- a/tests/ftp.pm
+++ b/tests/ftp.pm
@@ -21,6 +21,9 @@
 # $Id$
 ###########################################################################
 
+use strict;
+use warnings;
+
 #######################################################################
 # pidfromfile returns the pid stored in the given pidfile.  The value
 # of the returned pid will never be a negative value. It will be zero
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index f245c7c0a..c832aa618 100644
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -38,6 +38,7 @@
 #
 
 use strict;
+use warnings;
 use IPC::Open2;
 
 require "getpart.pm";