diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index 3aea12afdb73d61548aed50f7a27d505eb5f476a..9bb680d16afd3243e0ae3dc182365a54ae1141e3 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -37,11 +37,7 @@
 # perl ./exit_strategy.pl --help
 ###############################################################################
 
-
-use strict;
-use warnings;
-use feature qw( say signatures );
-no warnings "experimental::signatures";
+use v5.36;
 use utf8; # for debugging output
 use constant DEBUG => 0; # no debug
 use Carp;
@@ -610,11 +606,11 @@ GetOptions(
       say <<"HELP";
 call $0 with following options
         --help ............... this help
-        --recovery ........... set special recovery flag, if set deleted IEs will be ignored
+        --recovery ........... set special recovery flag, if set deleted IEs will be ignored (handle with care!)
         --continue ........... tries to add IEs to existing database, ignores IEs which already exists in DB (dangerous!)
         --sqlitedb-file=FILE . set database to file FILE
         --enable-sqldump ..... dumps a given database as SQL to STDOUT
-        --debug_to_file=FILE . dumps internal structure as YAML to FILE
+        --debug-to-file=FILE . dumps internal structure as YAML to FILE
 
         create an exit-DB:
         $0 [--recovery] [--sqlitedb-file=FILE] DIR [DIR…]
@@ -628,7 +624,7 @@ HELP
     "recovery"        => \$flag_recovery,
     "sqlitedb-file=s" => \$db_filename,
     "enable-sqldump"  => \$flag_sqldump,
-    "debug_to_file=s" => \$debug_to_file,
+    "debug-to-file=s" => \$debug_to_file,
     '<>'              => sub {push @ARGV_tail, @_;}
 ) or pod2usage(2);