rlm_perl module crash on high load, need to restart service

[Ľudovít Mikula]

> sub socket_init {
>      &logs("Opening connection to swoole\n");
>      my $swoole = new IO::Socket::INET (
> PeerAddr => '127.0.0.1',
> PeerPort => '26312',
> Proto => 'tcp'
>      );
> 

Try to set a timeout here, could be you're not getting a connection fast 
enough.
In general try to find out which part takes so long to execute.

---
Ludo