непонятная фигня с ping-pong, бот заползает на канал, но затем вылетает с ping timeout
while ($irc->recv($mеss, $MAX_SIZE)) {
print $mеss;
}
if ($mеss =~ /^PING\s:/) {
$irc->send("PONG $serv\n") || die "Error PONG repply\n";
непойму в чем дело