[FUG-BR] teste do mod_evasive rodando lento na VM

[Marcelo Gondim]

Pessoal,

Sei que muitos aqui conhecem o mod_evasive pro apache que no FreeBSD é o 
pacote ap22-mod_evasive.
Ele vem com um script de teste que sempre utilizei pra checar se o 
mod_evasive tá legal:

test.pl:

#!/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\n\n";
   $response = <$SOCKET>;
   print $response;
   close($SOCKET);
}

Só que quando rodo numa VM com FreeBSD ele abre as conexões lentamente, 
fazendo com que o teste não funcione. Fiz o mesmo teste em um FreeBSD 
sem ser VM e rodou mais rápido e consegui fazer os testes. Fui comparar 
com uma outra máquina com Linux e rodou estupidamente mais rápido. 
Logicamente que diferenças de processamento podem ser uma das causas mas 
porque rodou tão lento numa VM é que não descobri ainda.
  Alguém tem alguma ideia?

Grande abraço