diff --git a/lang/perl/t/01-boostrap.t b/lang/perl/t/01-boostrap.t
index 1268d68..6b7eb88 100755
--- a/lang/perl/t/01-boostrap.t
+++ b/lang/perl/t/01-boostrap.t
@@ -26,7 +26,7 @@ sub myprint {
 
 if($ARGV[0] eq "--automated-test") {
   shift @ARGV;
-  system ("rm storefile.txt logfile.txt");
+  system ("rm -rf storefile.txt logfile.txt stasis_log");
   $checking = 1;
 }
 
diff --git a/lang/perl/t/02-hash.t b/lang/perl/t/02-hash.t
index 2c5fed5..9729e8f 100755
--- a/lang/perl/t/02-hash.t
+++ b/lang/perl/t/02-hash.t
@@ -33,7 +33,7 @@ sub myprint {
 
 if($ARGV[0] eq "--automated-test") {
   shift @ARGV;
-  system ("rm storefile.txt logfile.txt");
+  system ("rm -rf storefile.txt logfile.txt stasis_log");
   $checking = 1;
 }
 Stasis::Tinit();
diff --git a/lang/perl/t/03-hash-iterator.t b/lang/perl/t/03-hash-iterator.t
index f4c95ec..1999895 100644
--- a/lang/perl/t/03-hash-iterator.t
+++ b/lang/perl/t/03-hash-iterator.t
@@ -20,7 +20,7 @@ sub myprint {
 
 if($ARGV[0] eq "--automated-test") {
   shift @ARGV;
-  system ("rm storefile.txt logfile.txt");
+  system ("rm -rf storefile.txt logfile.txt stasis_log");
   $checking = 1;
 }
 
diff --git a/lang/perl/t/04-hash-in-hash.t b/lang/perl/t/04-hash-in-hash.t
index 52e8163..24ab209 100644
--- a/lang/perl/t/04-hash-in-hash.t
+++ b/lang/perl/t/04-hash-in-hash.t
@@ -6,7 +6,7 @@ my $checking;
 
 if(@ARGV && $ARGV[0] eq "--automated-test") {
   shift @ARGV;
-  system ("rm storefile.txt logfile.txt");
+  system ("rm -rf storefile.txt logfile.txt stasis_log");
   $checking = 1;
 }
 Stasis::Tinit();
diff --git a/lang/perl/t/05-autoxacts.t b/lang/perl/t/05-autoxacts.t
index 21ff4e4..3eddacd 100755
--- a/lang/perl/t/05-autoxacts.t
+++ b/lang/perl/t/05-autoxacts.t
@@ -6,7 +6,7 @@ my $checking;
 
 if(@ARGV && $ARGV[0] eq "--automated-test") {
   shift @ARGV;
-  system ("rm storefile.txt logfile.txt");
+  system ("rm -rf storefile.txt logfile.txt stasis_log");
   $checking = 1;
 }
 
diff --git a/lang/perl/t/06-open.t b/lang/perl/t/06-open.t
index 20df16f..fce1e56 100644
--- a/lang/perl/t/06-open.t
+++ b/lang/perl/t/06-open.t
@@ -6,7 +6,7 @@ my $checking;
 
 if(@ARGV && $ARGV[0] eq "--automated-test") {
   shift @ARGV;
-  system ("rm storefile.txt logfile.txt");
+  system ("rm -rf storefile.txt logfile.txt stasis_log");
   $checking = 1;
 }
 
@@ -30,4 +30,4 @@ for(my $i = 0; $i < 4; $i++) {
     }
 }
 
-print "Exiting";
\ No newline at end of file
+print "Exiting";
diff --git a/lang/perl/t/07-hash-in-autohash.t b/lang/perl/t/07-hash-in-autohash.t
index 9d9dd75..cc7cb66 100644
--- a/lang/perl/t/07-hash-in-autohash.t
+++ b/lang/perl/t/07-hash-in-autohash.t
@@ -6,7 +6,7 @@ my $checking;
 
 if(@ARGV && $ARGV[0] eq "--automated-test") {
   shift @ARGV;
-  system ("rm storefile.txt logfile.txt");
+  system ("rm -rf storefile.txt logfile.txt stasis_log");
   $checking = 1;
 }