--- 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);