diff --git a/scripts/cdall b/scripts/cdall
index 507ccc6be2..aab41b6505 100755
--- a/scripts/cdall
+++ b/scripts/cdall
@@ -25,6 +25,9 @@
 
 # provide all dir names to scan on the cmdline
 
+use strict;
+use warnings;
+
 sub convert {
     my ($dir)=@_;
     opendir(my $dh, $dir) || die "could not open $dir";