diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/01-start-scst.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/01-start-scst.t
index 34bf666bb..661c968d9 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/01-start-scst.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/01-start-scst.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Test;
 
 BEGIN {
diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/02-scst-attr.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/02-scst-attr.t
index 267423138..372c70e87 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/02-scst-attr.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/02-scst-attr.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Test;
 
 BEGIN {
diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/03-targets.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/03-targets.t
index d07b11a34..26ca57fe6 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/03-targets.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/03-targets.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Test;
 
 BEGIN {
diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/04-alua.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/04-alua.t
index 72db337a2..04843eb67 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/04-alua.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/04-alua.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Test;
 
 BEGIN {
diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/05-dynattr.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/05-dynattr.t
index d31c739bf..c4cd84585 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/05-dynattr.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/05-dynattr.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Test;
 
 BEGIN {
diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/06-cont-on-err.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/06-cont-on-err.t
index 3bc6fd6b7..5d68de95c 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/06-cont-on-err.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/06-cont-on-err.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Cwd qw(abs_path);
 use File::Basename;
 use File::Spec;
diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/07-scstadmin-args.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/07-scstadmin-args.t
index 2178c7344..8cc23759f 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/07-scstadmin-args.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/07-scstadmin-args.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Cwd qw(abs_path);
 use File::Basename;
 use File::Spec;
diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/08-scstadmin-close-dev.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/08-scstadmin-close-dev.t
index cac3a5e02..7755ec669 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/08-scstadmin-close-dev.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/08-scstadmin-close-dev.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Cwd qw(abs_path);
 use File::Basename;
 use File::Spec;
diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/99-stop-scst.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/99-stop-scst.t
index c2cad55cf..b8fca3d32 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/99-stop-scst.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/99-stop-scst.t
@@ -1,6 +1,7 @@
 #!perl
 
 use strict;
+use warnings;
 use Test;
 
 BEGIN {