diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index 7119fa61f388f03a19c07ea82c61109cd82bd8a3..53b5391d9d224034e2c2f6e808c6c1ebccce1154 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -489,7 +489,7 @@ HELP
     },
     "recovery"        => \$flag_recovery,
     "sqlitedb-file=s" => \$db_filename,
-    "enable_sqldump"  => \$flag_sqldump,
+    "enable-sqldump"  => \$flag_sqldump,
     '<>'              => sub {push @ARGV_tail, @_;}
 ) or pod2usage(2);
 
@@ -532,7 +532,7 @@ my $cnt_unsorted_files = searching_ie_files(\@dirs, $tmp_ies_unsorted_file);
 my $fh_unsorted_IEs = $tmp_ies_unsorted_file->openr();
 my $count = 0;
 my $progressbar = Time::Progress->new(min => 0, max => $cnt_unsorted_files, smoothing => 1);
-my $dbh = DBI->connect("dbi:SQLite:dbname=$db_filename", "", "", {
+$dbh = DBI->connect("dbi:SQLite:dbname=$db_filename", "", "", {
     RaiseError     => 1,
     sqlite_unicode => 1,
 }) or die "could not connect to database (file '$db_filename')", $DBI::errstr;