while (my $client = $server->accept) {