while(1) { if( my $client = $server->accept) { #accept code...