--- mod_evasive/test.pl.orig	2003-08-30 22:22:50.000000000 +0200
+++ mod_evasive/test.pl	2019-02-12 10:31:26.606810952 +0100
@@ -10,7 +10,7 @@
   my($SOCKET) = new IO::Socket::INET( Proto   => "tcp",
                                       PeerAddr=> "127.0.0.1:80");
   if (! defined $SOCKET) { die $!; }
-  print $SOCKET "GET /?$_ HTTP/1.0\n\n";
+  print $SOCKET "GET /?$_ HTTP/1.1\r\nHost: 127.0.0.1\r\n\r\n";
   $response = <$SOCKET>;
   print $response;
   close($SOCKET);