Needed to tweak

[djl-illinois]

To run on our CentOS machine we needed to alter the print $SOCKET line. Thus,

!/usr/bin/perl

test.pl: small script to test mod_dosevasive's effectiveness

use IO::Socket; use strict;

for(0..100) { my($response); my($SOCKET) = new IO::Socket::INET( Proto => "tcp", PeerAddr=> "127.0.0.1:80"); if (! defined $SOCKET) { die $!; } print $SOCKET "GET /?$_ HTTP/1.0\r\n\r\n"; $response = <$SOCKET>; print $response; close($SOCKET); }

[davemidd]

Same here, otherwise I get a '400 Bad Request'.