diff --git a/debian/control b/debian/control
index 0addc1a..b42d637 100644
--- a/debian/control
+++ b/debian/control
@@ -17,6 +17,7 @@ Depends:
  net-tools,
  procps,
  ${misc:Depends},
+ ${perl:Depends},
 Suggests:
  asterisk,
  mariadb-server,
diff --git a/helper/compare_dbs.pl b/helper/compare_dbs.pl
index 3c03611..f125475 100755
--- a/helper/compare_dbs.pl
+++ b/helper/compare_dbs.pl
@@ -4,7 +4,6 @@ use strict;
 use warnings;
 
 use DBI;
-use Data::Compare;
 use Getopt::Long;
 use Carp;
 
@@ -183,9 +182,7 @@ foreach my $schema ( split( / /, $argv->{schemes} ) ) {
         $struct1 = $dbh1->selectall_hashref( $queries->{$obj}, 'key_col' );
         $struct2 = $dbh2->selectall_hashref( $queries->{$obj}, 'key_col' );
 
-        unless ( Compare($struct1, $struct2) ) {
-          print_diff($struct1, $struct2, $obj, $res, $schema);
-        }
+        print_diff($struct1, $struct2, $obj, $res, $schema);
     }
 }