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