...
while(1)
{
   $drop=1 unless $peer->recv($sock, $message, $maxLen,0)
   if($drop ==1)
   {
      $DEBUG && msg("recv failed : $!");
   }
   else
   {
      $actualPlugin->processMessage("$message");
   }
...