diff --git a/dos33delete.pl b/dos33delete.pl
index 8a3628a..630b2d1 100644
--- a/dos33delete.pl
+++ b/dos33delete.pl
@@ -12,6 +12,8 @@ use strict;
 
 use DOS33;
 
+my $debug = 0;
+
 while (defined $ARGV[0] && $ARGV[0] =~ /^-/) {
   # Debug
   if ($ARGV[0] eq '-d') {
diff --git a/dos33lock.pl b/dos33lock.pl
index 9da47a2..2244f99 100644
--- a/dos33lock.pl
+++ b/dos33lock.pl
@@ -12,6 +12,8 @@ use strict;
 
 use DOS33;
 
+my $debug = 0;
+
 while (defined $ARGV[0] && $ARGV[0] =~ /^-/) {
   # Debug
   if ($ARGV[0] eq '-d') {
diff --git a/dos33rename.pl b/dos33rename.pl
index d6ddb6d..331efd0 100644
--- a/dos33rename.pl
+++ b/dos33rename.pl
@@ -12,6 +12,8 @@ use strict;
 
 use DOS33;
 
+my $debug = 0;
+
 while (defined $ARGV[0] && $ARGV[0] =~ /^-/) {
   # Debug
   if ($ARGV[0] eq '-d') {
diff --git a/dos33unlock.pl b/dos33unlock.pl
index e8d861e..c276fdb 100644
--- a/dos33unlock.pl
+++ b/dos33unlock.pl
@@ -12,6 +12,8 @@ use strict;
 
 use DOS33;
 
+my $debug = 0;
+
 while (defined $ARGV[0] && $ARGV[0] =~ /^-/) {
   # Debug
   if ($ARGV[0] eq '-d') {