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

##</code><code>##

my $client = $server->accept();