while (my $conn = $socket->accept) {