$irc->start;
while ($socket->recv(my $in, 1024) ) { .. }