diff --git a/perl/exit_strategy.pl b/perl/exit_strategy.pl
index 4c031d224c1a489afa0408d03a1e2bf0636ff194..fc20600ccb99d9023929b5d726eabaf65607c489 100644
--- a/perl/exit_strategy.pl
+++ b/perl/exit_strategy.pl
@@ -52,7 +52,8 @@ use XML::LibXML::XPathContext;
 use Getopt::Long;
 use constant DEBUG => 0; # no debug
 
-
+use IO::Handle;
+STDOUT->autoflush(1);
 # guarantee, that output will be UTF8
 binmode(STDOUT, ":encoding(UTF-8)");
 my $db_name="exit_strategy";