while (1) {
    my $client;
    do {
        $client = $server->accept;
    } until ( defined($client) ); 

......
......
}